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GENERAL CHEMICAL KINETICS COMPUTER PROGRAM FOR STATIC AND 
FLOW REACTIONS, WITH APPLICATION TO COMBUSTION 
AND SHOCK-TUBE KINETICS 
by David A. Bittker and Vincent J. Scullin 
Lewis Research Center 


SUMMARY 

A general chemical kinetics computer program for complex, homogeneous ideal- 
gas reactions is described. It is designed for flexibility and convenience in treating 
reactions under many different conditions. Some,of these conditions are (1) reaction be- 
hind a shock wave, (2) ignition and combustion reactions in a static or flowing system, 

(3) combustion and nozzle expansion, and (4) general reaction in a static system or one- 
dimensional frictionless flow. In any system the temperature or volume or both may be 
held constant. 

An implicit numerical integration method is used for the solution of the differen 1 a 
equations that describe a complex reaction. A new step size optimization procedure has 
been developed to make this technique work efficiently for a wide range of conditions. 
This includes the extremes of very slow and very fast reaction. 

This report describes the theoretical equations involved, as well as the numerical 
method of solution. A detailed description of the program is given including preparation 
of input data, control of accuracy, sample input data, and several examples of test case 

results . 


INTRODUCTION 

Chemical kinetics calculations in reacting gases are of interest today for many dif- 
ferent applications. Some examples are (1) ignition and combustion of fuel-oxidant mix- 
tures, (2) expansion of combustion products, and (3) chemical reaction behind a shock 
wave. Very involved numerical methods are needed for detailed computations in a gas 
where many reactions are occurring at the same time. Simplifying assumptions can 



sometimes be made while still obtaining useful results. Some of these for exhaust noz- 
zle flow are discussed in references 1 and 2. Two of the most used ideas are (1) the 
assumption of equilibrium flow (infinite reaction rates) and (2) the assumption of sudden 
freezing or rapid transition from infinite reaction rates to zero reaction rates. The 
assumption (2) often gives useful information with the use of only a small amount of 
chemical kinetic information. For better insight into the reaction details, however, 
exact theoretical calculations are needed. The term exact is used here to mean that all 
important chemical reactions and their rate constants are included in the analysis. The 
actual solution of the nonlinear set of fluid-dynamic and kinetics equations involves some 
mathematical simplifications. Treanor (ref. 3) transformed these differential equations 
into difference equations. Other investigators locally linearized the differential equa- 
tions by removing second-order terms. They then used either an exact (ref. 4) or an 
approximate (refs. 5 and 6) analytic solution or finite difference solutions (refs. 7 and 8). 

Several computer programs have been written which use a finite difference method 
to integrate the differential equations of chemical kinetics. The main effort in developing 
these programs was to make the integration scheme overcome a mathematical instability 
problem that arises in these calculations. This problem is discussed in detail in a later 
section of this report. Briefly stated, it is the fact that some integration methods re- 
quire a very small step size to maintain accuracy and stability when the chemical reac- 
tion is either very fast or very slow. This leads to excessively long computation times. 
The program described in reference 34 uses the technique of reference 3 to avoid these 
problems . Reference 9 describes rocket performance programs that use the inherently 
stable implicit integration technique of reference 8. Reference 35 describes another 
more general kinetics program based on this technique. These and other pregrams have 
the ability to handle many types of kinetics problems for many chemical systems. How- 
ever, no single program has been found that could conveniently be used in a wide variety 
of flow and static reaction problems for an arbitrary chemical system. 

For this reason, a general chemical kinetics computer program for complex gas 
mixtures has been developed at Lewis. It is written completely in FORTRAN IV, ver- 
sion 13, and was developed on an IBM 7044-7094/direct-couple system. This program 
can be used for any homogeneous reaction in either a flowing or a static system. It has 
the advantages of flexibility, accuracy and ease of use. Moreover, any chemical system 
may be used for which species thermodynamic data and reaction rate constants are 
known. The program handles several types of reaction. These include bimolecular ex- 
change reactions, unimolecular decompositions, bimolecular decompositions, and the 
reverse recombination processes. The solution method is a rapid one based on the im- 
plicit finite -difference technique of Kliegel and Tyson (refs. 8 and 9). A unique step-size 
control system is used to estimate the optimum step size for each step. Moreover, 
the user can easily change the preset program controls to give his own balance between 
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acceptable accuracy and computing time. For flow reactions this program assumes one- 
dimensional flow. This is usually a good approximation for systems of practical inter- 
est, and the additional complications of three-dimensional kinetics computations (sur-^ 
veyed in ref. 10) are not required. 

The purpose of this report is to present a complete description of the chemical 
kinetics computer program and the implicit numerical integration method it uses. The 
theoretical kinetics differential equations solved by the program are also given in detail. 
The program may be used (with either assigned pressure or area in flow reactions) for 
the following problems: 

(1) Chemical reaction behind a shock wave 

(2) Ignition and combustion in a flowing or static system 

(3) Ignition, combustion, and nozzle expansion in supersonic flow 

(4) Chemical reaction in any flowing gas mixture whose velocity does not reach the 

velocity of sound 

(5) Chemical reaction in any static system 

(6) Constant temperature and/or constant volume reactions 

Readers interested primarily in using the program should read the section GENERAL 
DESCRIPTION OF PROGRAM USE for a description of program options, species infor- 
mation, and accuracy control. A detailed program users manual and computed test case 
results are given in appendixes. Further information on availability of the program may 
be obtained from the authors . 

SYMBOL LIST 


General: 


A 

Ap A 2’ * * *’ A 7 
A 

A* 


D 

f(.t,p) 


area 

thermodynamic coefficients in eqs. (81) to (84) 
species production function defined by eq. (12), sec * 

A/V 

enthalpy production function defined by eq. (13), sec ^ 

S/v 

heat capacity of gas per unit mass assuming constant composition 
(defined by eq. (16)) 

shock tube hydraulic diameter used to calculate L m (eq. (80)), cm 
shock pressure function defined by eq. (A13) 
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G(^,P) 

G 

H c 

h 

h l 

h* 

l 
L 
M 
M 
m 
N 
P 


m 


w 


P 

Pi 

q 

R 


r 



shock enthalpy function defined by eq. (A 14) 

Gibbs free energy 

total mixture energy per unit mass 

total mixture static enthalpy per unit mass 

mixture static enthalpy per unit mass before passage of shock wave 
enthalpy function defined by eq. (A 12) 
number of chemical reactions 

characteristic shock tube reaction length in eq. (80), cm 
mixture Mach number defined by eq. (14) 
mixture molecular weight 
mass flow rate 

number of species in a gas mixture 

p/Pi 

absolute pressure of gas mixture 
pressure before passage of a shock wave 
independent variable, either t or x 
universal gas constant 

density (p) if time is the integration variable; or mass flux (pV) 
if distance is the integration variable 
entropy 

species production function defined by eq. (C37) 
enthalpy production function defined by eq. (C38) 
absolute temperature 

reference temperature for calculating individual species enthalpy 

temperature before passage of a shock wave 

T/T x 

time 

velocity 

shock speed 

total energy exchange rate defined by eq. (86) 
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X 


distance coordinate 


boundary -layer parameter used to calculate in eq. (80) 

specific heat ratio defined by eq. (15) * 

exponent in shock boundary -layer equation (eq. (80)) 
gas viscosity used to calculate L m (eq. (80)) 
density 

density before passage of shock wave 
Subscripted Thermochemical Symbols: 

In general subscript i refers to species i and subscript j to reaction j. In the 
appendixes other indexes are sometimes used to avoid confusion in the summations, but 


their meaning should be clear . 

A. preexponential constant in the rate constant equation (eq. (33)) 

(C ). molar heat capacity of species i in a mixture 


E j 

h. 


K. 

3 

k. 


M. 

3 

m. . 
13 


n. 


S. 


W i 

X. 


X 


H, 3 


1.3 

t 

. 

1.3 


activation energy in rate constant equation (eq. (33)), cal/mole 
static molar enthalpy of species i 
equilibrium constant defined by eq. (34) 

forward reaction rate constant (see eq. (32)); units are either 
cm^ mole - ^ sec"^ or cm® mole"^ sec ^ depending on the type of 
reaction 

third-body efficiency factor defined by eq. (38) 
third-body efficiency ratio of species i in reaction j defined by 
eq. (39) 

temperature exponent in rate constant equation (eq. (33)) 

entropy of species i, energy per mole K 

. , S-^ symbols for species names in general reaction,(eq. (32)) 

net species production rate, moles vol ^ sec 

—1 —1 2 

net conversion rate (mole vol sec ) /(density) 
net energy exchange rate, defined by eq. (43) 
forward stoichiometric coefficient in general reaction (eq. (32)) 
reverse stoichiometric coefficient in general reaction (eq. (32)) 
concentration, moles of species i per unit mass of mixture 


a. 

i 




i.1. ^ 1 

net rate of formation of 1 species in j reaction, moles vol -x 
sec” 1 


Subscripted Symbols for Numerical Computation: 

In these symbols i and j refer to a particular dependent variable, and n refers 
to a finite difference step. Exceptions are made in the text for some summations, but 
the interpretation is obvious. The independent variable is shown here as t, but the same 
notation applies if x is used. 

C step-size ratio defined in eq. (69) 


'i,n+l 


1^ , Ig? etc 


y. or y. 
^i,n+l 




ratio of increment to step size defined by eq. (70) 
relative error in y . at time 1 “ ^n+l defined by eq. (62) 
dy^/dt 

dy./dt at t = t 
J r n 



maximum step size 
minimum step size 

intervals of uncertainty in step size search procedure 

exact value of k, „ 

i,n 

time at the n step 
initial time 

general dependent variable 

h® at 1 = Vi 

dt/dt 

df^/dt at t = t 

3f./9y. 
l ] 

0 at t = t n 

relative error in complete solution at (n+l) st step, see eq. (72) 
maximum relative error per step 
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FLUID DYNAMIC AND CHEMICAL EQUATIONS 
Differential Equations for Assigned Area 


The conservation equations for a complex reacting gas are presented in this section. 
(See, for example, the book by Penner, ref. 11). They are derived first for one- 
dimensional steady -state flow through an arbitrarily assigned area profile. 

Global mass conservation is given by the equation 


pAV = m 


( 1 ) 


or 


2“ = 0 (la) 

dt 

where m is the constant mass flow rate of the gas. Individual species continuity equa- 
tions for the N species in the mixture are written as 


— (cF.m) = W.AV 1 = 1,2,. . . , N (2) 

dt 1 1 

Here a. is the number of moles of species i per unit mass of mixture. Expressions 
for the species production rates, will be given in a following section. By performing 
the indicated differentiation in equation (2) and using equations (1) and (la) the following 
set of equations can be obtained 


da. W. 

—i = -i- i = 1,2,. . . , N 
dt p 


(3) 


To completely describe the system we assume adiabatic flow of an ideal gas and 
neglect viscosity, diffusion and heat conduction. The following additional equations can 
then be written for momentum and energy conservation 


p + i_ 5 b = o (momentum) (4) 

dt V dt 
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V" 

h + - — = H (energy) 
2 c 


( 5 ) 


where H c is the total, constant energy of the gas per unit mass and h is the static en- 
thalpy per unit mass of the gas given by 


N 

h = £ o.h. 
i=l 


( 6 ) 




(6a) 


Here h. is the molar enthalpy of species i. 
The molecular weight of the gas mixture is 


M = 
w 


N 

i=l 


(7) 


The equation of state is 




M 


w 


( 8 ) 


Equations (1), (5), (7), and (8) are differentiated and combined with equation (4) to get 
the following differential equations: 


dV = V / 1 dA _ ^ 
dt (M^ - 1) dt 1 


4 ° = 

dt 



\A dt / 


+ A 


( 10 ) 
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( 11 ) 


dT 

dt 



(v - l)M 2 /l dA 
(M 2 - 1) dt 


In these equations the following auxiliary definitions have been made: 

i-^ (12) 

i=l 


a 



h-W. 
1 l 


(13) 


M 


2 


V 2 M 
w 

yRT 


(definition of Mach number) 


(14) 


r R 

p"m 

w 


N 


C = V <r.(C ). 
p L r p'i 


i=l 


(15) 


(16) 


where C is the heat capacity of the mixture per unit mass assuming fixed composition 
and (C ).^is the molar heat capacity of species i. Equations (3), and (9) to (11) form a 
sy stein of N + 3 equations in N + 3 unknowns. Their solution must be obtained by a 
numerical technique . 

The equations for a static reaction can now be obtained by setting the velocity equal 
to zero in equations (9) to (11) to get the system 


dcr. W. 

= i = 1,2, . . . , N (3) 

dt p 
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-p* 

dt 


(17) 


— = jr xM (18) ' 

dt 

The reacting gas can also be described by equations that use distance, x as the in- 
dependent variable. The relation dQ/dx = (l/V)dQ/dt is used to rewrite equations (3), 

(9), (10), and (11). Here Q represents any of the variables V, p, T, or cn. The new 
equations are 


dor. W. 
i i 

dx pV 


i = 1, 2, 


N 


dV = V /l_ dA _ ^'*\ 

dx (M 2 - 1) ^ dx ' 


d£ = 

dx 


M 2 /l dA 
(M 2 - 1) * 



(19) 

( 20 ) 

( 21 ) 


dT 

dx 


= -T 


(y - 1)M 2 
(M 2 - 1) 


(h dA 

\A dx 




where 


A 


* 


A_ 

V 


and 




V 


( 22 ) 


(23) 


(24) 
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The derivations so far have assumed adiabatic reaction. To consider instead a con- 
stant temperature reaction it is only necessary to set dT/dt or dT/dx equal to zero. 
This can be shown to be equivalent to eliminating the adiabatic energy equation (eq. (5))„ 
The same situation holds if volume (or density) is held constant in a static reaction. The 
density derivative, dp/dt or dp/dx, is set equal to zero to obtain the solution for a 
static reaction at constant volume. Both temperature and volume can also be held con- 
stant simultaneously . 


Differential Equations for Assigned Pressure 

In the equations just derived the flow area is arbitrarily assigned. The pressure is 
computed from the equation of state (eq. (8)) after density, temperature, and composi- 
tion have been computed from the differential equations (9) to (11). For engine com- 
bustor modeling it is often useful to reverse this procedure. One assigns a desired 
pressure profile and computes the area profile which then satisfies all the fundamental 
kinetics and fluid dynamics laws. For this type of calculation another set of differential 
equations can be derived to replace equations (9) to (11) . The derivatives of the depend- 
ent variables are now expressed in terms of p and dp/dt rather than A and dA/dt. 
The new equations, obtained from equation (4) and by differentiating equations (5), (7), 
and (8), are as follows: 


dV = __l_dP (25) 

dt P V dt 

<*£ = p/i_ £>E - A (26) 

dt \yp dt J 



y - l\ 1^ dp 
K y ) P dt 



(27) 


The quantities and M are the same as previously defined in equations (12) and (13). 

If distance, x is the independent variable, the assigned pressure equations are the same, 
with dp/dt replaced by dp/dx and A and M replaced by and 


d V _ 1 dp (28) 

dx pV dx 
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( 29 ) 



-I 


Either of these equation sets is solved (along with the appropriate equations for da./dt 
or d^/dx) to give V, T, p, and the a/s. Then area is computed from the assigned 
constant mass flow rate using the mass conservation equation, equation (1) . 


Chemical Reaction Equations and Species Production Rates 

The species formation rate, W i that appears in equations (3) and (19) is given by 


W 


i=Z 


C t) z 


13 


3=1 


(31) 


where l is the number of chemical reactions occurring and w.. is the net rate of 

th 

formation of species i by the j reaction in moles per unit volume per second. Each 
chemical reaction is written in general form as 


I 


i=l 


V‘ -S . 
13 i 




(32) 


It- 

where is the i species. The and are the forward and reverse stoichio- 
metric coefficients for S. and k. and k, . are the forward and reverse rate constants 
th 1 3 D 3 

for the j reaction. Each k^ is a function of temperature given by the equation 


n. -E./RT 
k. = A.T •» e 3 
3 3 


( 33 ) 


The value of k^. is calculated from k^ and the equilibrium constant K. (in con- 
centration units) by the law of microscopic reversibility 
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(34) 


k 




For convenience we introduce the net reaction conversion rate X.. which is related to 




i] 


by the equation 


co. . = n^(iA. - y..)X. 
l] P V i] i] ] 


(35) 


The units of X. are (moles /vol sec) /(density) It is useful as a measure of the amount 
of change due to each reaction occurring in the gas mixture . We use X. rather than 
the net molar reaction rate because the X. values are more convenient for comparison 
than the molar rates. The exact form of X. depends on the type of reaction being con- 
sidered. In this program three types of reversible chemical reaction are considered. 
These reactions and the corresponding X. formulas are given next. 

Type 1 - bimolecular shuffle reaction: 


k. 


S, + S, 


So +S. 


X. 

3 




(36) 


Type 2a - three -body recombination: 

^3 

M+S x +S 2 - S 3 + M 

where M, the catalyst molecule, can be any species present. 



■Hi 

where M., the third -body efficiency factor for the j reaction is 


(37) 
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(38) 


M. = 
3 


N 

Y' m..cr. 

Lj 1 ] 1 


i=l 


th 

In this equation m^ is the third-body efficiency factor for species i in the j n 
reaction. It is a correction only on the preexponential factor A. in equation (33) and 
can be written as 


m _ species i 

U < A j>o 


(39) 


where (A^)q is the value for a reference species as a third body. 
Type 2b - two-body dissociation: 


k s 

M + Sg r Sj + Sg + M 


where M is the catalyst molecule 


P a i a 9 

X. = k.M. |a Q 

3 3 3(3 K 


(40) 


where M. is defined by equation (38). 
Type 3a - unimolecular decomposition: 


k. 

S 3 « . V S i + S 2 


X.= k .- a 3 V2 

3 3 \ p K. 

M 3 


(41) 


Type 3b - two -body recombination: 


S l +S 2 


k. 

3 
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( 42 ) 



A 


The size of X. tells approximately the importance of any single reaction among all 
those occurring. The sign of X. tells how the reaction is actually occurring: X^ is 
positive if the j th reaction is proceeding from left to right as written, and negative if it 
is proceeding in the opposite direction. 

For some problems the heat release rate is an important consideration. For such 
situations another useful quantity was defined and used in reference 12 to^measure a 
reaction’s importance. This is the net energy conversion rate for the j reaction de- 
fined by 


X H)j = X.(AH 298 ). (43) 

W\ 

where (AH oqq ). is the molar heat of reaction at 298 K for the j reaction proceeding in 
the forward direction, from left to right. 


Normal Shxk Equations 

A chemical reaction can be started by the passage of a shock wave through a gas. 
The assumption is made that the shock wave instantaneously raises the gas to new tem- 
perature and pressure conditions without changing its composition. The conservation 
equations for the change in conditions across the shock are 


2tt 2 _ 2-y 2 

Pl v S = P v 

(44) 

Pi + Pl V f - P + pv 2 

(45) 

h 1+ zLh + xf 

1 o 9 

(46) 


In these equations the coordinate system is attached to the shock, which is considered 
stationary. The unshocked gas at conditions p^ , p^, and Tj flows past the shock with 
speed Vg, the experimental shock velocity. Gas properties immediately after the shock 
passes are p, p, and T. The enthalpy per gram of gas mixture is changed from hj 
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to h by the shock. Since gas composition is unchanged, h is calculated for the initial 
composition at the new temperature T. The actual equations solved are given in appen- 
dix A. These conditions are called the no-reaction or frozen shock conditions. 

The increased temperature and pressure behind the shock start the chemical reac- # 
tion. It is also possible to solve equations (44) to (46) for the equilibrium postshock 
conditions. These are the final velocity, temperature, pressure, and new composition 
that would exist after all chemical reaction is complete. The solution method for this 
situation is also described in appendix A. The complete shock-equation solution uses 
the method described by Gordon and McBride (ref. 13). 


NUMERICAL ANALYSIS 
Summary of Technique 

The nonlinear, coupled differential equations derived in the previous section (e.g. , 
eqs. (19) to (22)) describe the relaxation of a reacting gas toward equilibrium. The re- 
taxation rates of the fluid mechanical variables are often quite different from the relax- 
ation rates of the component gases, particularly in near -equilibrium flow regimes. In 
addition, there can be large differences in the relaxation rates of the individual gases. 
Systems of differential equations which represent relaxation processes with widely dif- 
ferent relaxation rates are called stiff systems. 

The numerical integration of a system of stiff differential equations poses a serious 
stability problem. The problem arises in trying to resolve rapid variations over the 
small regions in which they contribute significantly to the solution while at the same time 
advancing the integration at a rate which is consistent with the slower, more dominant 
solutions. Most conventional numerical integration techniques force the step size to be 
impractically small in order to maintain stability . 

Many integration techniques have been derived which are both more stable and more 
efficient than conventional methods for integrating stiff systems. Among these are 
Treanor’s modified Runge-Kutta method (ref. 3) and Moretti’s method (ref. 4) involving 
the exact solution of locally linearized equations. A method which falls logically between 
those two is the implicit integration method of Tyson (refs. 8 and 14). This method has 
the advantages of being inherently stable and computationally efficient. The inherent sta- 
bility of Tyson’s method makes it preferable for general applications where nothing is 
known ahead of time about the disparity in relaxation rates (see ref. 15). The general 
chemical kinetics program uses the implicit integration method of Tyson with modifica- 
tions to the initial step and error formulas. Other inherently stable implicit integration 
methods have been proposed by Lomax and Bailey (ref. 7) and Liniger and Willoughby 
(ref. 16). 
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Since Tyson’s method is stable for all step sizes, the stability problem is solved. 
However, the gain in stability obtained by using an implicit rather than an explicit inte- 
gration method is accomplished at the expense of increasing the number of calculations ^ 
that must be performed at each step. In particular, all the implicit schemes mentioned 
require the calculation of all the partial derivatives of the differential equations (see 
appendixes B and C). The application of an effective strategy for step-size control can 
significantly increase the rate at which the numerical integration advances. The general 
chemical kinetics program uses a step-size optimization procedure that is superior to 
the standard doubling and halving method of step-size control. After each step of the 
numerical integration, an error predictor is used to search within limits for the largest 
step size that can be used for the next step without violating the user’s accuracy require- 
ments. Experience has shown that this optimization technique permits the step size to 
react quickly to regions of very slow or very fast reaction. 


Derivation of Numerical Integration Equations 

This section presents a complete derivation of Tyson’s general step formula 
(ref. 14) and our initial step and error formulas. A derivation of Tyson's formula for a 

fixed step size is contained in reference 9. 

General step formula . - Let the following set of coupled first-order simultaneous 

differential equations be given: 




dt 


i = f.(t,y 1 ,y 2 , . . ., y N ) i = 1,2, . . N 


(47) 


It will be assumed that these equations are nonsingular and that a solution exists which 
can be developed as a Taylor series. In other words, for |t n+1 - tj sufficiently small, 


k. 


i,n+l 


; ^i 

dt 


j2 

h - y i 


,3 

h n+l 

n+1 9 

w dt 

w 2 ' dtS 

t 3 - 

Vt-i 


i = 1,2, 


N 


(48) 


where 


^i,n+l ^Ai+1^ ” yftri 

(49) 

^n+1 “ *n+l ~ V 

(50) 
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Performing an expansion similar to equation (48) for y.(t -) about t yields 

i n-i n+1 


k i,n + l + k i,n = — (Vl + V- 


d2y i <Vi + v 2 


d3y i <Vi + V 3 


The second derivative terms can now be eliminated between equations (48) and (52). 
Multiplying equation (48) by (h R+ ^ + h n ) y/h^ + ^ and then subtracting equation (51) gives 


(21 w + V 


n+l k _ 


h n+l<Vl + h „> i,n+1 < h n+l + h „> h n 1,n ~*t 


d y i h n+l (h n+l + V 


+ . . . 


From the Taylor series expansion by partial derivatives for (dy./dt). about the point 


dy. 3f. \ Sf 

= h i + \ — 

dt . dt . at t n+1 / a y . 

n+l n n *— 


3f. d 3 y. h 2 

_1 k n+1 

ay. J ’ n+1 *3 21 " ‘ 

] t„ dt t. 


Letting 


dy i 

f. * — - 

1>n dt 
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(55) 


a 


af. af. 

M = — 1 > n = T7 

1 at ’ a* 


n 


af. af. 

,3 ,(t)=_i., . n = -i 

1,J ay, ay. 


n 


and substituting the last expansion into equation (52) gives 

< 2h n+l + V 


(56) 


N 


n+1 


li-rx. ii 

Vl<WV 1,11+1 < h n+l +h n )h n 


k i,n“( f i,ii +0, i,nVl + ? Pl.i.n“i.n + 1 

3=1 




A 


dt' 


n+1 

21 


A 3 
d ^ 


dt' 


n 


h n+l (h n+l + V 
31 


(57) 


l n+l 


Again, by a Taylor series expansion 


A 

dt 3 


,2 j3 

n+1 


d Yi 


2 ' dt 3 


n 


h 




(58) 


'n+1 


The substitution of equation (58) into equation (57) gives, after combining and rearranging 
the terms, 

h n+l k . h n+l^ h n+l + h n^ l f + a h + s. . k. \ 

1,11+1 = (2h n+1 + h n )h n (2h n+1 + h„) \^- n 1,n n+1 L 1,3,n 3,n+ j 


k. 


d 3 Yi 


dt' 


h n+l< h n+l + V^n+l ~ V , n ( h 

^n+l+V V 


4 

n+1 


(59) 


n+1 
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Finally, equation (59) is truncated to produce the implicit equation 


h 


k. 


n+1 


k. + _2±L_2±i — |f. + tt . h 


N 


n+1 (2h„ +1 + h n )h n "i. n ' (2h_, + hj l M ’ n ' n “ n+1 


‘n+1 ’ V 


^i,j,n k j,n+l 


3=1 


i = 1,2, . . N 


(60) 


The solution of the coupled first-order simultaneous differential equations (47) can be ob- 
tained by solving at each step the following set of linear equations 


1 - 


*n+l ^ h n+l 


+ h ) 
n 


(2h 


n+1 


+ h n> 


^i,i,n 


k. 


+ K) 


N 


n+1 v n+1 


i,n+l 


(2h 


n+1 


+ h n> 




n+1 


n+1 


3=1 

3^i 


^ 2h n+l + h n )h n 


x k. + 
i,n 


( K ^ + K) 


n+1 v n+1 


(2h. 


n+1 




, ^ f i,n + ff i,n h n+l^ i 1 > 2 » * * *’ N 


(61) 


The equations for f., a., and & which are required in order to apply this implicit 

■1 1 J 

integration technique to the chemical kinetics problem, are given in appendixes B and C. 

Error formula . - The relative error in the numerical solution of dy^/dt = f . at the 
(n+l) s step is defined as 


E. 


i,n+l 


k (e) - k 

K i,n+1 K i,n+1 


y i,n+l 


(62) 


-(e) 


where k> ^ +1 is the exact value of the increment k. n+ j. From equation (59) 


k (e) -k ~ d3yi 

K i,n+1 K i,n+1 T 

dt -5 


n+l^ h n+l + h n» 2h n + l ~ V 
3l(2h n+X + V 


(63) 


n+1 
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will now be obtained. The 


An expression that can be used to evaluate ^d 3 y. it ^ 

^n+l 

following equations are the result of Taylor series expansions about the point t n+1 : 

3 


k. 


i,n+l 


dt 


h 


d 2 Yi 


n+1 


n+1 


dt" 


h L + d3y i 


2 * dt 3 


n+1 


h 


n+1 

3’. 


'n+1 


dy i 

k i,n + l +k i,n"^- 


( h n + l + V- 


d 2 y. 


n+1 


dt" 


' Vl + h n) 2 , d3y i 
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dt 1 


n+1 


h 1 +h 
n+1 


n) : 


31 


u n+l 


k i,n+l + k i,n + k i,n-l 


*1 

dt 


< h n+l + h n + Vl } " 


A 2 
d y? 


n+1 


dt" 


h . + h + h . 
V n+1 n n-1 

21 


'n+1 


d3y i 


dt‘ 


(Vl + h n + h n-l) : 


31 


'n+1 


The preceding set of equations can be solved to give (d^/dt 3 ) in terms of 1 

*n+l 


k. , and k. t . The solution is 
i,n’ i,n-l 


,3 

d y. 

y _i 

dt 3 


n+1 


31 

1 k 

( h n + l + 2h n + h n-l } 

<Vl + h n + h n-l ) 

Vl ( Vl + V l,n+1 

< h n + l + V h n (h n + h n-l } 




Combining equations (62) , (63) , and (67) yields 


(64) 


(65) 


( 66 ) 


i,n+l’ 


,n 


(67) 
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E. 


i,n+l 


h n,l< 2 Vl - V 
(2h n + l + h n )( Vl + h n + h n-l>< h n + Vl> V y i.n + 1 ; 


X 


< h n + Vl> ' °Vl + 2h n + h n-l> ^ + ( h n + l + V 


l n+l 


n 


n-1 


(68) 


With the definitions 


C = 


<Vi + V 

< h n + Vl> 


(69) 


k. 

D. =-i m 


i,m h 


m 


(70) 


equation (68) can be rewritten as 


E. 


i,n+l 


h n + l< 2h n + l - V 


(2h n + l + h n^ h n+l + h n + h n-l> \ y i,n+l, 


< D i,n + l ' D i,n> 


- C(D. - D. J 
v i,n i,n-r 


(71) 


Finally, the relative error in the solution of the set of equations given by equation (47) at 
the (n+l) st step is defined to be 


e, , 1 = max E. , 
n+1 . i,n+l 

lei 


(72) 


where I is the set of all dependent variables that are not being omitted from error con- 
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sideration. The relative error e n+1 is used to control both the accuracy and the step 
size during the numerical integration. 

Initial step formula . - The general step formula given by equation (60) requires the 
value of the increment k. and the step size h n from the previous step. Thus, that 
formula cannot be used for^he initial step. Notice that the error formula (eq. (71)) re- 
quires information from two previous steps. We will derive a formula that can be used 
for the initial two steps to generate initial values for the general step procedure. Let 

be the initial step size, t Q the initial time, and h any second step size. Then equa- 
tion (60) can be written as 


y.(t 0 + h x + h) - y t (t 0 + h x ) = 


h 2 

y^o + h i } ■ y i ( V 

h(h + h^,) 

-j- 

(2h + h x ) 

h i 

(2h + h x ) 


V*0 + 


N 

g.(t 0 + h x )h,y j(t Q + h 1 ) y^(t Q + h 1 + h) -y^tQ + hj) > i = l,2, . . ., N (73) 
3=1 


Taking the limit of equation (73) as h x approaches zero, we obtain 

N 


r 


y i (t o + h ) - yi (t 0 ) = j ~ 


; W + "i (t 0 )h + X ^ + h) * f <74) 


'0 


3=1 


or more simply, 


N 


k i, 1 = f i,0 h + \ k,0 h + ^ j, 0 k 3 ,l 


3=1 


(75) 


The initial step is performed by solving the following system of linear equations: 


! \ 

N , v 




( X ' |3i > i ’ 0 2 ) 


i = 1 , 2 , . . 

N 

(76) 


3=1 

3^i 
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Since equation (76) requires no information from a previous step, it can be used for each 
of the initial two steps. 


Step-Size Optimization 


The numerical integration technique used in the program contains a unique step-size 
optimization procedure. We define the optimum step size for each integration step to be 
the largest step size that is consistent with the user’s accuracy requirements. The 
user’s accuracy requirements are specified by three input parameters: (1) e max , the 
maximum relative error per step, (2) h max , the maximum step size, and (3) h m ^ n , the 
minimum step size. The optimum step size, if it exists, must be in the interval (h min , 
h max ) an£ * have an associated relative error which does not exceed e max - In practice, 
the optimization procedure obtains an approximation of the optimum step size for the 
given step. The calculation of this approximate optimum step size is based on an em- 
pirical method for predicting relative error as a function of step size. The approxima- 
tion is obtained by performing a limited number of trials to find the largest step size 
within some subinterval of (h min , h max ) whose predicted relative error does not exceed 


The complete optimization procedure is described in the following paragraphs. 

At the conclusion of each step a judgement is made by comparing e n , the relative 

error in the step just concluded, with c : 

i max . 

(1) If e„ < w increase the step size for the (n+1) step. 

II la lXlcLX 

^ If 2 e max — Si — 6 e max’ use h n+l = h n* 


(3) If € n >g € max an d h n > h min , decrease the step size for the (n+1) step. 

(4) If e n > W and h n = h min’ restart at the ^ ste ?* 

If the judgement is made to increase the step size for the next step, then a search is 

made for the optimal h R+1 in the interval [h n , h m ]. Analogously, the judgement to de- 
crease the step size for the next step triggers a search for the optimal h n+ ^ in the in- 
terval [h min , h ]. If condition (4) is satisfied then the restart procedure is initiated. 

The restart procedure consists of repeating the n^ 1 step using equation (76) with 
1 st 

h 0“2 h min and P erformin g the (n+1) step in the same manner. Automatically restart- 
ing a case at the beginning of the n^ step is exactly the same as manually starting that 

case with the conditions at the end of the (n-1) step as the initial conditions and -£h . 

r 2 mm 

as the initial step size. 

The general step formula equation (60), derived in the previous section is implicit 
because of the terms on the right side and thus must be solved as a set of 

simultaneous linear equations. Making the substitution 


1,n+l 


k. 

+ _jh..P. 

h 
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into equation (60) and solving for k^ n+1 yields 



The set of equations described by (78) is explicit in kj n+v It requires appreciably 
fewer operations to obtain values for the increments k. +1 from (78) than from the 
simultaneous solution of the equations given by (61). Now, for any given step size h n+1 , 
by using equation (78) as a predictor and equation (60) as a corrector, an approximate 
solution to the simultaneous equations described by (61) can be obtained. This approxi- 
mate solution is used to compute a relative error according to the error equations de- 
veloped in the previous section. The error thus calculated is a prediction of the error 
that can be expected from the simultaneous solution of equations (61) using the step size 
h j. The step-size optimization is accomplished by searching for a step size h n+ ^ 

whose predicted error is equal to e max * 

The search technique is a modified form of the conventional half -interval search. 
Starting with an interval of uncertainty for h n+1 of length I (e.g. , Ij = l h max “ h n l)> the 
search successively narrows down the interval until after n iterations (n > 2), the max- 
imum length of the interval of uncertainty is I R = . The search is termi- 

nated when either an h n+1 is found whose predicted error is <r max or the limit of 11 on 
the number of iterations has been reached. In either case the last estimate of h n+ j will 
be used for the next step. Notice that in the worst case I n ~ 10 ~ J l h max ~ h miJ * 

Hence, having chosen an input value for h min on the basis of round-off error and com- 
puter time considerations, a reasonable input value for h max would be 10 *h min . This 
would insure that the final interval of uncertainty would be of the order of h min - 


GENERAL DESCRIPTION OF PROGRAM USE 


The kinetics program can compute the progress of many different types of static 
or one-dimensional flow reaction. These include ignition processes, reactions behind a 
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shock wave, nozzle expansions and assigned pressure reactions. Constant volume and/ 
or constant temperature reactions can also be handled. Computations can be performed 
for any homogeneous gas mixture containing no more than 25 species. Any species may 
be considered as long as its thermodynamic data are available in the form described in 
the section Thermodynamic Data and Species Names. Thirty chemical reactions of the 
three types already mentioned may be used. There is no limit on the number of each 
type. For a typical computation the user must provide rate constants and initial values 
of temperature, pressure, and species concentrations. For a flow reaction, the velocity 
and an area or pressure profile are also required. Nonzero initial time and position 
values may be specified. Otherwise, the program sets the starting values of x and t 
to zero. A detailed description of data card preparation is given in appendix D, and 
appendix E lists input and selected results for several test cases. 


Options 

There are several program options that provide for many reaction conditions and 
these will now be described. 

Integration variable . - Either the time or distance version of the basic differential 
equations may be integrated. The integration variable is chosen by punching the word 
TIME or DISTANCE on a data card. 

Static or flow reaction . - The program was written with flow-kinetic applications in 
mind. However, static chemical reactions can also be considered very simply by 
(1) choosing the TIME integration option and (2) setting the flow velocity V equal to 
zero. The program then integrates equations (3), (17), and (18) for a static system. 

Shock wave reactions . - The program contains an option for easily computing the 
progress of chemical reactions behind a shock wave. When the logical variable SHOCK 
is set equal to TRUE, the initial conditions are recognized as unshocked gas conditions. 
The velocity, V is then the shock speed V . The program first solves the conserva- 
tion equations to obtain the conditions of pressure, temperature, and particle velocity 
behind the shock assuming no reaction. These new conditions and the initial composition 
are then used to compute the progress of the chemical reactions occurring in the high- 
temperature region behind the shock wave. The program also computes the final condi- 
tions that would exist if these chemical reactions went to complete equilibrium. 

Equilibrium calculations . - An option is provided in the program for calculating the 
final equilibrium conditions for a constant pressure combustion. Both enthalpy and pres- 
sure are assumed constant for these calculations, which are triggered by setting the 
logical variable COMBUS equal to TRUE . 

Units options . - The user has a choice of three different systems of units for both 
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input and output. These are the CGS, U. S. Customary (or FPS), and SI systems. The 
choice of output units is completely independent of the input units . The exact units used 
in each system are listed in the sections below on INPUT and OUTPUT. 

Si 

Assigned profile options . - For any flow -kinetic reaction, an area or pressure pro- 
file must be assigned. For a static reaction neither pressure nor area need be assigned. 
However, a pressure profile may be assigned. The assigned variable may be specified 
in any of the following ways as a function of time or distance; the choice is independent 
of the integration variable used: 

(a) A table of assigned variable against distance or time. 

(b) Polynomial coefficients for the equation 

Q = Cq + C^q + Cgq + C^q (79) 

where Q is the assigned variable and q is either t or x. Notice that a constant area 
or pressure profile can be specified by setting C 2 = C 2 = C^ = 0 and Cq equal to the 
constant value. 

(c) Special area function. The area may be calculated by the equation 



This equation is used to represent laminar and turbulent boundary -layer effects in a 
shock tube according to the theory of Mirels (refs. 17 to 19). The exponent r\ must be 
read into the program. Its value is either 0. 5 for a laminar boundary layer of 0.8 for a 
turbulent boundary layer. The characteristic reaction length parameter, L m may either 
be read in or computed by the program. The program uses equation (3) of reference 19 
for a laminar boundary layer or equation (4) of reference 18 for a turbulent boundary 
layer. If L m is to be computed, three other quantities are read in instead of L m . 
These are the shock tube hydraulic diameter D , the unshocked gas viscosity p , and a 
boundary -layer thickness parameter j3, which can be calculated from equations given in 
references 18 and 19. 

Third -body efficiencies . - The program allows the rate constant for any three -body 
recombination-dissociation reaction to be adjusted for the efficiencies of different third- 
body catalysts. The user may read in values of the weighting factor m^ defined in 
equation (39) for any three -body reaction if the logical variable ALLM1 is set equal to 
FALSE. All the weighting factors are equal to 1.0 unless changed by the user. 

Multiple cases. - Several different cases may be done in one computer run without 
preparing a complete new data deck for each one . This is done with the use of an 
ACTION card in each data deck following the first case . The four options that may be 
used on this ACTION card will be described in a later section. 
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Constant volume and temperature reactions . - The user has the option of holding 
either temperature or volume, or both, constant during the chemical reaction computa- 
tion. The constant temperature condition is obtained by setting the logical variable 
TCON equal to TRUE. For constant volume the variable RHOCON is set equal to TRUE., 
Standa rd options . - The program has a built-in standard choice for many of the pre- 
viously mentioned options. None of the given code words or logical variable names has 
to appear on a data card unless the user wants a nonstandard option. A list of the 
standard options will be given in a later section. 


Thermodynamic Data and Species Names 


All thermodynamic data and species names are identical to those used in the chemi- 
cal equilibrium composition program of Gordon and McBride (ref. 13). Thermodynamic 
functions are calculated by polynomial equations for Cp, h, S, and G as a function of 
temperature. The polynomial coefficients were calculated using the thermodynamic 
properties computer program of McBride and Gordon (ref. 20). The data calculated 
from these equations are the same as those tabulated in the JANAF thermochemical 
tables (ref. 21). Seven coefficients A^Ag, . . . , A^ are used for each species in the 
following equations, where T is the kelvin temperature. 


C 

R 


P _ 


RT 


1 ^ 2 

A 0 A. 
— _ T + — 
2 3 


R 


G , ^9 

= A- (1 - In T) - T 

RT 1 2 6 


+ A 4 T 3 + A 5 T 4 

(81) 

^ T 3 + — T 4 + — 

(82) 
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^t 3 +^t 4 + a 7 

(83) 

3 4 7 

^T 3 --5 T 4 + ^-A 7 

(84) 

12 20 T ' 


These coefficients A^ , . . . , A^ are read into the kinetics program either as data cards 
or card images on magnetic tape. The detailed description of the data cards for each 
species is given in appendix D. The information on these cards is of three types 
(1) the species name, (2) the stoichiometric coefficients and element names for each 
chemical element in the species, and (3) two sets of the thermodynamic coefficients 
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ApAg, . . . , A ^ for two different temperature ranges. The availability of the thermo- 
dynamic data is discussed in appendix F. 

Any species can be used in a chemical kinetics computation if its thermodynamic 
data are read into the computer as indicated and if its name is compiled into the kinetics 
program in two different routines. The species name, exactly as it is written on the 
thermodynamic data cards, must first appear in the BLOCK DATA routine. The name 
array ALSP has space for 75 names containing eight symbols each. As now written, 
ALSP contains 71 species, so that the user may add only four new species without in- 
creasing the dimensions of the array. If this increase in dimensions is not desired, new 
species may be substituted for any unused ones now in the list. When a species name is 


TABLE I. - SPECIES NAMES AND MOLECULAR WEIGHTS INCLUDED IN COMPUTER 
PROGRAM "BLOCK DATA" SUBROUTINE 


Species 

Block data 
name 

Molecular 

weight 

Species 

Block data 
name 

Molecular 

weight 

Species 

Block data 
name 

Molecular 

weight 

Ar 

AR 

39.948 

CO 

CO 

28.011 

Kr 

KR 

83.800 

B 

B 

10.811 

co 2 

CO 2 

44.010 

N 

N 

14.007 

BE 

BF 

29 . 809 

C 2 F 2 

C2F2 

62.019 ! 

Ne 

NE 

20.183 

BF 2 

BF2 

48.808 

c 2 h 

C2H 

25.030 

NF 

NF 

33.005 

BF 3 

BF3 

67.806 

c 2 h 2 

C2H2 

26.038 

NF 2 

NF2 

52.004 

BH 

BH 

11.819 

C 2 H 4 

C2H4 

28.054 

NF 3 

NF3 

71.002 

bh 2 

BH2 

12.827 

c 2 n 

C2N 

38.029 

NH 

NH 

15.015 

bh 3 

BH3 

13.835 

Cl 

CL 

35.453 

nh 2 

NH2 

16.023 

BO 

BO 

26.810 

C1F 

CLF 

54.451 

nh 3 

NH3 

17.031 

BOF 

BOF 

45.807 

C1F 3 

CLF3 

92.448 

NO 

NO 

30.006 

bof 2 

BOF 2 

64.807 

Cl 2 

CL2 

70.906 

NO+ 

NO+ 

30.00555 

bo 2 

BO 2 

42.810 

Electron 

E 

5.48597X10" 4 

O 

£ 

NO 2 

46.006 

B 2°3 

B203 

69.620 

F 

F 

18.9984 

N 2 

N2 

28.013 

Br 

BR 

79.909 

F 2 

F2 

37.997 

n 2 h 4 

N2H4 

32.045 

Br 2 

BR2 

159.82 

H 

H 

1.00797 

n 2 ° 

N20 

44.012 

C 

C 

12.0112 

HCN 

HCN 

27.026 

N 2°4 

N204 

92.009 

CF 

CF 

31.010 

HC1 

HCL 

36.461 

O 

O 

15.9994 

cf 2 

CF2 

50.008 

HF 

HF 

20.006 

o+ 

o+ 

15.99885 

CH 

CH 

13.019 

ho 2 

HO 2 

33.005 

0- 

0- 

15.99995 

ch 2 

CH2 

14.027 

HNO 

HNO 

31.014 

OH 

OH 

17.007 

CH 2 O a 

CH20 

30.026 

H 2 

H2 

2.0159 

°2 

02 

31.997 

ch 3 

CH3 

15.035 

h 2 ° 

H20 

18.014 

°2- 

02- 

31.99935 

ch 4 

CH4 

16.043 

H 2°2 

H202 

34.014 

Xe 

XE 

131.30 

CN 

CN 

26.018 

He 

HE 

4.0026 





a Formaldehyde. 
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listed in ALSP, its molecular weight must be written in the array ALMW in BLOCK 
DATA. Table I gives a list of the species now recognized by the program and also lists 
the exact program name and the molecular weight for each species. 

A name for each species must also be listed in subroutine INIT. The names are 
listed in the COMMON block called FAKE and also in NAMELIST START. In this sub- 
routine, species names are used as the FORTRAN concentration variables to simplify 
the input of initial species concentrations. The name for each species used in INIT is 
the same as the BLOCK DATA name. In the case of ionic species, a FORTRAN variable 
name cannot contain special characters, specifically + and -. Therefore, we have 
adopted the convention of using a P in place of a plus sign and an M in place of a 
minus sign in INIT. To illustrate this point the table below lists several species from 


Species 

BLOCK DATA 
name 

Name in COMMON block 
FAKE and NAMELIST 
START 

h 2 0 

H20 

H20 

B 2°3 

B203 

B203 

NO+ 

N0+ 

NOP 

0+ 

o+ 

OP 

0- 

0- 

OM 

°2- 

02- 

02M 


table I, giving their BLOCK DATA names and their names in subroutine INIT. The exact 
species name that appears in subroutine INIT must always be used when reading in an 
initial concentration of any species. 


Accuracy Control 

Experience has shown that all composition variable errors, E^ need not be 

considered at every step in calculating c n+1 (eq. (72)), the relative error at that step. 

Quite often, species that have very small concentrations also have large E. - values. 

i , n+l 

If these Ej values are used in the error calculation, the step size will be kept 
smaller than it has to be. Therefore, some species can usually be eliminated from the 
error calculation. In this section the methods used to do this are described. In general 
accuracy and computer running time are controlled by two factors: (1) the assigned 
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error e combined with the species error elimination procedures and (2) the 
max 

assigned step sizes, especially the initial step size. 

Assigned e and error elimination. - Two methods of neglecting errors due to 

trace species are used. The first method is done automatically unless the user wishes 
to prevent it. Before each new step-size calculation is done, certain species errors 
are eliminated from consideration in equation (72) . The test for elimination is that a 
species error be equal to at least 15 times the median value of the errors for all the 
species variables. In the second error omit technique the program is told to neglect 

TABLE II. - EFFECT OF ERROR CONTROLS ON HYDROGEN - AIR 
IGNITION COMPUTATIONS 
(a) Effect of error omit procedures 


[Assigned distance, 30 cm. ] 


Trial 

1 

2 

3 

8 

Run time , min 

22 

6 

6 

8 

•w- cm 

0.10 

0.10 

0.10 

0.10 

e max 

0.00005 

0.00005 

0.00005 

0.00005 

Automatic error 
elimination 

No 

Yes 

Yes 

No 

Permanent 
species error 
elimination 

None 

None 

H 2°2 

H 2°2 

t, pisec 

162.65 

162.65 

162.65 

162.66 

p, atm 

1.5166 

1.5131 

1.5124 

1.5116 

V, cm/sec 

191608 

191744 

191709 

191667 

p, g/cm 3 

1.54257X10" 4 

1.54155X10" 4 

1.54184X10" 4 

1.54216X10"* 

T, kelvin 

2802 

2805 

2804 

2802 

S, cal/gK 

2.7451 

2.7464 

2.7460 

2.7454 

M 

1.7187 

1.7184 

1.7187 

1.7190 

7 

Mole fractions: 

1.2518 

1.2519 

1.2519 

1.2518 

Ho 

4.387X10" 2 

4. 417X10" 2 

4. 407X10 " 2 

4.396X10“^ 

2 

OH 

2.861X10" 2 

2.885X10" 2 

2.877X10 -2 

2.867X10" 2 

HoO 

0. 26282 

0.26216 

0.26235 

0. 26262 

2 

H 

1.674X10" 2 

1.699X10" 2 

1.691X10 -2 

1.680x10 

Oo 

1.698X10* 2 

1.708X10 -2 

1.705X10” 2 

1.701x10“^ 

2 

0 

6.909X10' 3 

7.019X10' 3 

6.984X10" 3 

6.943X10” 3 

HO 2 

5. 448X1 0“ 6 

5.503X10" 6 

5. 488x10"® 

5.469X10" 6 

HoOo 

6.771X10' 7 

6.817X10" 7 

6.806X10 -7 

6.792X10" 7 

z z 
N 2 

0.62407 

0.62377 

0.62387 

0.62398 
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certain species errors for an entire problem. This is especially needed for a slow 
reaction such as a long delay ignition. For any ignition reaction the free radical concen- 
trations are usually quite negligible at the start. But, often, the calculated errors for 
these concentrations are relatively large. If they were used in the step-size calculation" 
they would keep the step size needlessly small. The permanent error omit procedure 
must be used for slow reactions , because the automatic method is not sensitive enough 
to cope with this situation. It has been our experience that the error for any species 
with a mole fraction of 10 ^ or less can be neglected with no change in results. 

The effect of using the error omit procedure is shown in table n(a) , which gives 
computed results for a hydrogen-air ignition reaction using an IBM 7044-7094 computer. 
Trial 1 is the standard, in which no species were eliminated from the error analysis. 

A comparison of trial 2 with trial 1 shows that running time is significantly shortened by 
using the automatic elimination procedure. The largest change in the results is about a 
1 -percent change in some of the smaller species mole fractions. Trials 3 and 8 show 
two things. First, permanently omitting a single species does not reduce running time 
any further after the automatic omit procedure is used. Second, permanently omitting 
a single species is not as effective as the automatic procedure in reducing computer 
time. Computations for other reacting mixtures have shown that the results in table 11(a) 
are quite typical. This is why we have made the automatic error elimination procedure 
the standard option in the integration routine. However, the user can override these 
error eliminations by a simple addition to the input data, if any accuracy problem ever 
occurs. The override should be used if more than three species errors are consistently 
being neglected. 

Table H(b) shows the effect of other factors on accuracy and computer running 
time. Trial 2 will now be used as the standard of comparison. Trials 2 and 4 show that 
results are essentially unchanged when ^ max , the allowable error, is changed by a 
factor of 2 from 0.00005 to 0.0001. Trials 4, 6, and 7 show that results are independent 
of maximum step size as well. Our computations with several reacting mixtures have 
indicated that e max = 0.0001 as a maximum relative error gives excellent accuracy 
with relatively short running times for most situations . 

The computing time can, however, be decreased with only a slight loss of accuracy 
by two different methods. These are (1) increasing e max and (2) using the permanent 
error omit procedure for several of the small concentration species. The effect of each 
of these methods is shown by trials 5 and 9. The € m ax va ^ ue was arbitrarily increased 
to 0.0003 in trial 5. 

When performing computations for very slow reactions the permanent error tech- 
nique should always be used for all the trace species (mole fraction ^ 10“^ For best 
accuracy the calculation should be stopped when trace species eventually become impor- 
tant. It should then be restarted with these species removed from the permanent omit 
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TABLE II. - Concluded. EFFECT OF ERROR CONTROLS ON HYDROGEN - AIR IGNITION COMPUTATIONS 
(b) Effect of allowed error and permanent error omits using automatic error elimination 

[Assigned distance, 30 cm. ] 


Trial 

2 

4 

6 

7 

9 

5 

Run time, min 

6 

5 

5 

5 

2 

3 

h cm 

0.10 

0.10 

0.05 

0.20 

0.10 

0.10 

max’ 







e max 

0.00005 

0.0001 

0.0001 

0.0001 

0.0001 

0.0003 

Permanent 
species error 

None 

None 

None 

None 

h 2 o 2 ,ho 2 

H.O.OH 

None 

elimination 







t, {isec 

162.65 

162.66 

162.66 

162.65 

162.71 

162.66 

p, atm 

1.5131 

1.5130 

1.5134 

1.5145 

1.5254 

1.5180 

V, cm/sec 

191744 

191724 

191715 

191797 

192204 

191968 

p, g,/cm 3 

1.54155X10* 4 

1.54172X10" 4 

1.54180X10" 4 

1.54113X10' 4 

1 . 53781X10" 4 

1.53995X10"* 

T, kelvin 

2805 

2805 

2805 

2808 

2828 

2815 

S, cal/gK 

2.7464 

2. 7463 

2.7464 

2.7472 

2.7539 

2.7495 

M 

1.7184 

1.7184 

1.7181 

1.7178 

1.7131 

1.7165 

y 

1.2519 

1.2519 

1.2519 

1.2519 

1.2524 

1.2521 

Mole fractions: 







H 2 

4. 417X10** 2 

4.415xl0~ 2 

4.416X10” 2 

4.435X10" 2 

4.583X10 -2 

3.020X10' 2 

4,487X10"^ 

OH 

2.885X10" 2 

2.882xl0“ 2 

2.884X10’ 2 

2.899X10" 2 

2.941X10 -2 

h 9 o 

0.26216 

0.26219 

0.26215 

0.26171 

0.25824 

0.26050 

H 

1.699X10" 2 

I.697X10" 2 

1.697X10" 2 

1.713X10" 2 

1.836X10" 2 

1.755X10” 2 

O, 

1.708X10" 2 

1.707X10' 2 

1.707X10" 2 

1.714X10" 2 

1.760X10' 2 

1.730X10 -2 

2 

O 

7.019xl0~ 3 

7.010X10 -3 

7.013X10" 3 

7.082X10" 3 

7.631X10" 3 

7.271X10" 3 

HO 2 

5.503X10' 6 

5.499X10" 6 

5. 498X1 0" 6 

5.530X10” 6 

5.775X10 -6 

5.616X10" 6 

H 9 0 9 

6.817X10" 7 

6.814X10 -7 

6.811X10' 7 

6.837X10" 7 

7.019X10' 7 

6.901X10" 7 

N 2 

0.62377 

0.62379 

0.62378 

0.62359 

0.62213 

0.62309 


list. However, our experience with several chemical systems has shown that acceptable 
results may often be obtained even when major species are neglected from the error 
analysis. 

The initial step size . - The user specifies a minimum and a maximum step size for 
any calculation. The program selects h m ^ n as the initial step size unless a different 
value is given. Using an initial value larger than h m ^ n is another way to decrease 
computation time. An initial step size even larger than the maximum value may be used 
when a very slow reaction is being considered. Our experience has shown that the user 
may choose the largest initial step size that does not cause the integration to break down 
immediately. Examples of this breakdown are negative species mole fractions and tem- 
peratures very different from the starting value. A few trial runs for any new system 
will show the largest initial step size that may be used. 
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Input 


In this section a general description is given of the several types of data required for 
a kinetics problem. The exact format of all data cards is given in appendix D. 

Chemical reactions and species . - Each chemical reaction is listed on a separate 
card which has space for two reactant names, two product names, and the three rate 
constant parameters Aj, m, and E.. The reaction cards may be put in any order, re- 
gardless of the type of reaction. The program checks all names on the reaction cards 
against its species list in the array ALSP . In this way the program automatically builds 
up the list of species being used in any problem. The availability of rate constant data 
is discussed in appendix F. 

Inert species . - The names of any species present, but not reacting, are listed 
separately, four per card, following the reaction cards. 

Integration var iable and units . - A version and units card follows the inert species 
list. It contains the code words for the integration variable (DISTANCE or TIME) and 
for the assigned variable (AREA or PRESSURE). It also contains the codes for input and 
output units (CGS, FPS, or SI). Table HI gives the units needed with each of these three 
options for the input data. 


TABLE HI. - INPUT UNITS FOR THREE UNITS SYSTEMS 


Variable 

Internal (CGS) 

FPS 

SI 

Velocity 

cm/sec 

ft/sec 

m/sec 

Temperature 

K 

°R 

K 

Density 

g/cm 3 

lbm/ft 3 

kg/m 3 

Pressure 8- 

atm 

lbf/ft 2 

N/m 2 

Length 

cm 

ft 

m 

Area 

cm 2 

ft 2 

2 

m 

Species 

Mole fraction or 

Mole fraction or 

Mole fraction or 

concentration 

mass fraction 

mass fraction 

mass fraction 


a Pressure may also be specified as mmHg (torr) in all systems. 


P roblem data . - Most of the input data for a problem are listed in a NAMELIST 
called PROB, which follows the version card. PROB contains the assigned variable pro- 
file information, printout information, and the integration controls. It also contains the 
logical variables SHOCK, COMBUS. ALLM1 , TCON, and RHOCON. 

Efficiencies fo r three -body recombination-dissociation reactions . - The third -body 
catalyst efficiencies m^ are contained on one or more cards following NAME 1. 1ST 
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PROB. These cards are permitted only if ALLM1 has been set equal to FALSE. Each 
card contains up to three species names with corresponding m.. values for a single 
reaction. The reaction is written on each of these cards exactly as it appears on the 
reaction card. 

Starting conditions . - The starting values for the fluid dynamic variables and the 
composition of the reacting gas are listed in a NAMELIST called START, which follows 
either the third -body efficiency cards or NAMELIST PROB. In general, five variables 
make up the initial conditions in addition to the species starting concentrations. The 
program initializes all of these to zero. These variables, therefore, do not have to 
actually appear in NAMELIST START unless their values are nonzero. Four of these 
initial values are always x, t, T, and either V or Mach number. For the last fluid- 
dynamic variable the user has a choice of either p, p, A, or mass flow rate m. The 
choice is determined by the profile that has been assigned in NAMELIST PROB. For 
an assigned area problem one may list either p, p, or m. For an assigned pressure 
problem either A or m may be used. 

Species starting concentrations can be given either as mole fractions or mass frac- 
tions. The program name of the species is used as its concentration variable name. 

For example, H2 = 0. 50 means that the concentration of H 2 is 0. 5 in the mixture. The 
program interprets these concentration numbers as mole fractions unless it is told that 
they are mass fractions. This is done by setting the variable MOLEF equal to FALSE. 

Species omitted from error calculations . - It was mentioned earlier that the pro- 
gram can be made to neglect minor species errors during its step-size calculation for a 
complete case. These "permanently omitted" species are listed, four per card, imme- 
diately following NAMELIST START. 


Output 

The program has both standard and optional output. The exact output units used for 
each of the three systems, CGS, FPS, and SI, are listed in table IV. All computed re- 
sults are completely independent of the print station positions. A special step is made 
to each print station and the independent variable is then reset to its previous value. 
From this point it is increased by the normally calculated step size to a value greater 
than the print station value . 

Standard output . - The following data will be listed if no special codes are used in 
the input data: 

(1) Reaction time^ 

(2) Axial position and flow cross-section area 

*Gas particle time for a shock wave reaction. 
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TABLE IV. - OUTPUT UNITS FOR THREE UNITS SYSTEMS 


Variable 

Internal (CGS) 
units 

FPS units 

SI units 

Velocity 

cm/sec 

ft/sec 

m/sec 

Temperature 

K 

°R 

K 

Density 

g/cm 3 

lbm/ft 3 

kg/m 3 

Pressure 

atm 

lbf/ft 2 

N/m 2 

Time 

sec 

sec 

sec 

Length 

cm 

ft 

m 

Area 

___2 

cm 

ft 2 

2 

m 

Species concentration 

Mole fraction, mass 

Mole fraction, mass 

Mole fraction, mass 


fraction, (g/mole) 

fraction, (lb mole) 

fraction, (kg mole) 


/cm 3 

/ft 3 

/m 3 

Species production rate 

Q 

(g-mole)/cm sec 

(lb mole) /ft 3 sec 

o 

(kg mole)/m sec 

Net reaction conversion 

g-mole /_2 

lb -mole j 2 

kg mole / 2 

rate 

3 / 

cm sec / 

ft 3 sec / 

m 3 sec / 

Net energy exchange 

cal / 2 

Btu / 2 

J / 0 2 

rate 

3 / P 

3 / 

3 / 


cm sec/ 

ft J sec/ 

m sec / 

Reaction rate constant 

cgs units a 

cgs units 3. 

cgs units 3. 

dV/d q 

(cm/sec) ,/unit q 

(cm/sec) /unit q 

(cm/sec)/unit q 

dp/d q 

(g/cm )/unit q 

Q 

(g/cm )/unit q 

(g/cm 3 )/unit q 

dT/d q 

K/unit q 

K/unit q 

K/unit q 

dCT./d q 

(g- mol e/g) /unit q 

(g-mole/g)/unit q 

(g-mole/g)/unit q 

Mass flow rate 

g/sec 

lbm/sec 

kg/sec 

Entropy 

cal/g K 

Btu/lb °R 

J/kg K 


a See table V. 


(3) Pressure, velocity, density, and temperature of the gas mixture 

(4) Entropy per unit mass and frozen heat capacity ratio for the gas mixture. The 

entropy S is computed from 



- In o. - ln(pM w ) 


(85) 
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(5) Local Mach number 

(6) Mole fraction of each species in the gas mixture 

(7) Molar concentration of each mixture species 

(8) Net species production rate W. defined by equation (31) (This is the net rate of 

change of each molar concentration due to all chemical reactions.) 

(9) Net reaction conversion rate, X., defined by equations (36), (37), (40), (41), 

or (42) for the three types of chemical reactions being considered 

(10) Rate constant value, kj for each reaction (This is just the value given by equa- 

tion (33). For a dissociation or recombination reaction, the third -body effi- 
ciency is assumed to be 1.0.) 

(11) Mixture molecular weight 

(12) Mass fraction sum 

(13) Total energy exchange rate defined by 

l 

X H=^ X H,j <86! 

3=1 

where l is the number of reactions and X H . is defined in equation (43) (The 
quantity X^ is proportional to the net heat release rate for the entire complex 
reaction and may be useful in ignition reactions . ) 

(14) Derivatives of all dependent integration variables, V, T, p, and each o^, with 

respect to the independent variable 

(15) Increments and relative errors - the computed increments k i and relative 

errors E. n+ ^ as defined in equations (49) and (62) for the current integration 
step 

(16) Integration indicators 

(a) Steps from last print 

(b) Average step size since last print 

(c) Controlling variable - the variable with the largest error ^ 

(d) Relative error - the value of e n+ ^ for the step being printed out 

(e) Any species that will be automatically eliminated from error consider- 

ation for the next step 

Optional output . - Several changes and additions to the standard output may be 
made: 

(1) Species mass fraction may be listed in place of molar concentration by setting 
the logical variable CONC equal to FALSE in NAMELIST PROB. 

(2) Net energy exchange rate for each reaction X R . defined by equation (43) may 
be listed in place of net reaction conversion rate by setting the logical variable EXCHR 
equal to TRUE in NAMELIST PROB. 
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(3) The program has an option for listing certain additional data or intermediate 
output at each print station. These data are useful either for studying the effect of each 
individual reaction on gas composition or for diagnosing any program problems. This 
option is chosen by setting the variable DBUGO equal to TRUE in NAMELIST PROB. The 
following quantities are then listed: 

(a) The molar rate of production of species i due to reaction j , co.., defined 

by equation (35) ^ 

(b) The quantities A and M or Jl* and S * 

(c) If area has been assigned, the quantities dA/dq, d 2 A/dq 2 and either 


or 


1 A 

\A dq ) 


i ^ -jA 

A dq / 


If pressure has been assigned, the quantities dp/dq, d 2 p/dq 2 and (l/p)(dp/dq) are 
printed out. Here q is the independent variable , either t or x. 


PROGRAM ORGANIZATION 

The program is organized into the following five sections: (1) control, (2) input/ 
output, (3) shock/combustion, (4) chemical kinetics, and (5) numerical integration. An 
effort was made in writing the program to make each of the last three sections self- 
contained except for the reading and processing of input data. The shock/combustion 
section uses subroutine THRM from the chemical kinetics section, but is independent 
in all other respects. The chemical kinetics and numerical integration sections are 
complete in themselves. The next sections describe the function of each program sec- 
tion and of each subroutine in the section. The names of nonstandard entry points into 
a subroutine are given in parentheses following the subroutine name. Flow charts for 
key subroutines (figs. 1 to 6) are found in appendix G along with the FORTRAN listing. 
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Control Section 

The control section is synonymous with the main program GCKP. It provides for 



problem setup through a series of subroutine calls. It also monitors the numerical in- 
tegration and provides an output call whenever a print station is reached (see fig. 1). 


A 


Input/Output Section 

This section provides for the reading, converting and writing of all input data and 
kinetics results. It also performs all the necessary bookkeeping functions such as 
building tables, setting option switches, and storing data for later use. 

KINP (RINP) . - Provides for the processing of all input data. It initializes, sets all 
standard options, reads input data and converts it to internal (CGS) units, calculates ref- 
erence conditions, builds tables and provides calls for shock and combustion calculations 
(see fig. 2) . 

CIMAGE . - Prints a card image of each data card. 

NAMBLK . - Contains, in block data format, logical tape unit numbers and alpha- 
numeric data for testing and output. 

BLCK . - Contains, in block data format, the master species list and the molecular 
weight of each species in that list. 

INIT . - Reads the initial conditions by means of NAMELIST START and stores initial 
species concentrations using a table provided by KINP. 

OUTP (QUT1, OUT 2, OUT 3) . - Provides all output except shock and combustion re- 
sults. It converts output data from internal units to user’s requested output units and 
calculates parameters which are required only as output such as total entropy and net 
energy exchange rates. 


Shock/Combustion Section 

The frozen and equilibrium shock and the equilibrium combustion calculations are 
performed in this section. It converts and writes its own output and provides for the 
transfer of frozen shock results to the input/output section as initial conditions for the 
kinetics calculations. Except for reading input and calculating thermodynamic proper- 
ties, this section is independent of the other sections. 

COMB . - Provides the necessary setup and subroutine calls for the calculation of a 
constant pressure equilibrium combustion. 

SHOK . - Provides the necessary setup and subroutine calls for the calculation of 
both an equilibrium and a frozen shock. 

SHOCKS . - Solves the shock equations for both the equilibrium and frozen cases. 

ELEMNT . - Collects chemical element data for equilibrium calculations. These 
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data include, a list of the elements present and the concentration of each of these elements 
in atoms per gram . 

EQLBRM . - This routine, and the following two, are modified versions of routines 
used in the chemical equilibrium composition program described in reference 13. It 
calculates equilibrium composition and properties for an assigned set of conditions - 
assigned temperature and pressure for a shock, assigned enthalpy and pressure for a 
combustion. 

MATRIX . - Used by subroutine EQLBRM to construct matrices required in equi- 
librium calculations. 

GAUSS. - Solves the linear equations which are set up by subroutine MATRIX. 

SP OUT (ECO UT, ES OUT, FSOUT) . - Provides for the output of all shock and com- 
bustion results. It converts output data to the user's requested output units, transfers 
frozen shock results to the input/output section and calculates the characteristic shock 
tube reaction length L m in centimeters if this calculation is required. 


Chemical Kinetics Section 

The calculation of all chemical and flow parameters is performed in this section. In 
particular, thermodynamic functions are evaluated, reaction and species production 
rates are computed, and all required partial and total derivatives are calculated. This 
section is independent of all but the input/output section. 

PREP (PRED1). - Performs all necessary prederivative calculations. This routine 
calls for or computes directly the thermodynamic properties, reaction rates, equilibrium 
constants, pressure, specific heat ratio and Mach number as well as other parameters 
required for the calculation of derivatives (see fig. 3) . 

DERV. - Calculates all partial and total derivatives with respect to the variable of 
integration (see fig. 4). 

PARD. - Calculates all partial derivatives with respect to the chemical and flow 
variables (see fig. 5). 

THRM. - Computes the (dimensionless) thermodynamic properties h./RT, G./RT, 
S i/ R , ^p^i/k’ and (dC p /dT)./R from polynomial curve fits (see ref. 20)! 1 

C UBS (CINP) . - Provides for the calculation of the assigned variable and its deriva- 
tives. If the assigned variable is specified by a table, then the variable and its deriva- 
tives are computed by cubic spline interpolation. 


Numerical Integration Section 

This section sets up and solves the implicit equations, computes the relative error 
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and performs the step-size optimization at each step. It contains the automatic species 
elimination calculations for omitting from error considerations those species with non- 
representative errors . This section of the program is independent of the other sections . 

INTE (INTI, INTO, 1NTG) . - Provides control of the numerical integration proce- 
dure during each step. It calls for the implicit equations to be set up and solved, checks 
for restart conditions, and calls for the step-size optimization (see fig. 6). 

CASM (CASI, CASG) . - Sets up the implicit equations as an augmented matrix, calls 
for the solution, and updates all the dependent variables after the increments have been 
calculated. 

LESV. - Solves the implicit equations for the increments k. n+1 using the matrix 
provided by subroutine CASM. 

ERROR . - Computes the relative error and determines the controlling variable at 
each step. 

PERR. - Provides an approximate error for any assigned step size by obtaining an 
approximate solution of the implicit equations. This routine is used in the step-size 
optimization procedure to predict the error which can be expected from any given step 
size. 

AUTO . - Provides for the automatic elimination from error considerations of 
species with nonrepresentative errors. A species error E^ is considered to be non- 
representative if > 15 • E m where E m is the median of the errors associated with 
those species which have not been permanently neglected from all error considerations. 

SEARCH. - A sequential direct search routine which is used in the step-size opti- 
mization procedure. 


CONCLUDING REMARKS 

A general chemical kinetics computer program has been described for calculating 
the history of many different complex gas-phase reactions. Its main features are flex- 
ibility, ease of use and efficiency of computation for both slow and very fast reactions. 
The species and reactions to be considered are specified by the user. The program is 
especially useful for ignition and combustion reactions and complex reactions behind a 
shockwave. In addition it may be used for many types of homogeneous reaction in either 
a static system or one -dimensional flow. Further information on availability of the 
program may be obtained from the authors. 

Lewis Research Center, 

National Aeronautics and Space Administration, 

Cleveland, Ohio, August 26, 1971, 

129-01. 
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APPENDIX A 


SOLUTION OF SHOCK WAVE EQUATIONS 


The shock equations (eqs. (44) to (46)), are solved by an iterative method. For both 
frozen and equilibrium conditions, one makes estimates of the final temperature and 
pressure p f and T f . Then a Newton-Raphson method is used to calculate corrections 
to these estimates and converge on the correct values. The shock equations are trans- 
formed and combined for this solution. First, equation (44) gives 



(Al) 


This equation is used in equations (45) and (46) to eliminate V and gives, after some 
rearrangement 



Using the equation of state (eq. (8)) for no change in gas composition gives 


Pi 

P 



(A 4) 


where we have defined the new variables T/Tj and P = p/pj. 

Equations (A2) and (A3) can now be written as functions of the pressure and tempera- 
ture ratios across the shock: 
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- P = 0 


(A 5) 



These equations are solved iteratively for the final ratios ^ and P^ across the shock. 
First estimates of T and P are obtained from the following equations: 


p o = 


2yM“ - y + 1 
y + 1 


(A7) 




y + 1 


(A8) 


These are the exact solutions of equations (44) to (46) when heat capacity is assumed to 
be independent of temperature. Then the Newton-Raphson procedure is used to calcu- 
late corrections to In P and In ^ where it is assumed that 


In P n+1 = In P R + A In P 

(A9) 

in r n+1 = m *- n + a m r 

(A10) 


where n indicates the n th iteration step. Logarithmic differentiation is used to obtain 
rapid convergence of the procedure. We define the quantities 



h*=h x 




(All) 


(A 12) 
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Then equations (A 5) and (A6) can be written as 


f(.t,p) = p* - p = o 

(A 13) 

ft 

G(.T,P) =h* - h = 0 

(A14) 


Substituting equations (A9) and (A 10) and using logarithmic differentiation gives the 
following pair of linear equations for the corrections A in P and A In P in the Newton- 
Raphson method: 


9 In r. 


n 


0F X Ain ( - . ??. 1 A In P = -F 


a In P 


n 


(A 15) 


n 


8G 


a In F, 


Aln J + 


n 


f— ) 

Vainp/ n 


A In P = G. 


n 


(A 16) 


In these equations subscript n indicates evaluation of either the function or its deriva- 
tive for the estimated values P n and y . This method of solution is the one used by 
Gordon and McBride (ref. 13). This procedure is used for both the equilibrium and the 
frozen shock conditions. The only difference in method for the two sit ua tions is the way 
the enthalpy is computed for the shocked gas. For the frozen shock conditions, h is 
calculated at the estimated temperature T for the original gas composition. In the 
equilibrium case the shocked gas enthalpy depends on T and also the changing gas com- 
position due to reaction. Therefore, the estimated T and p are first used to perform 
an equilibrium chemical reaction calculation. This gives the estimated final composition 
of the shocked gas. This composition and the estimated T are then used to calculate the 
enthalpy h used in equation (A 14) to compute the function G(^,P) in the Newton - 
Raphson method. 


44 



APPENDIX B 


CALCULATION OF PARTIAL DERIVATIVES FOR THE IMPLICIT 
INTEGRATION PROCEDURE 


Several partial derivatives must be calculated for solving the system 




dq 


y ra ) 


(Bl) 


where 


q = t or x i = 1,2,. . . , m 


The necessary derivatives are 


at 

=— i = 1,2,. . m 

1 


0f. 

(31,=— = 1,2,. . ., m 

M 3y . 

For this program the following identifications are made for the y^'s: 


(B2) 


(B3) 


y 1= V 

y 2 = p 

y 3 = T 

y i + 3 = a i 1=1,2,- --.N 

where N is the number of species in the gas. 

Derivatives must be calculated for two different equation systems: either equations 
(3) and (9) to (11) for assigned area or equations (3) and (25) to (27) for assigned pres- 
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sure. For convenience in the calculations simplified notation will be used to represent 
the several derivatives of the y.’s. 

J i 





4 


da. 

f. - 1 

i+3 j 
dq 


i — 1,2,. . . , N 


In the following equations the symbols <£* and M* will not be used. The symbols A 
and M are assumed to have definitions consistent with the particular definitions 
being used. (See eqs. (12), (13), (23), and (24).) 


Assigned Area Equations 


From equations (3) and (9) to (11) the following equations are used for the f^’s: 


f, — — ( — — - 


fn p 


f 3 = -T 


(M 2 - 

i) 

\A dq 

M 2 

_/ 

i dA _ J 

(M 2 - 

i)' 

A dq j 

(y - 1)M 2 

(L^.J 

(M 2 - 

1) 

\A dq / 


(B4) 


(B5) 


(B6) 


W. 


f i+3=— i = 


(B7) 
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where 


r = p for q = t 

A 


= pV for q - x 


The of-’s are most easily obtained because only one quantity ,the area A is an explicit 
function of q. The results are 


JJl m 

V 

d 2 A 

dq 

A(M 2 - 1) 

dq 2 

3 = 

pM 2 

d 2 A 

9q 

A(M 2 - 1) 

dq 2 


2 A \dq 


.2 A \dq/ 


5 = 

T(y - 1)M 2 

d 2 A 

0q 

A(M 2 - 1) 

_dq 2 


,2 A \dq 


(B8) 


(B9) 


(BIO) 


9 f l , o 

Qfi , o “ — -i— — 0 i = 1,2,. . N 
1+6 3q 


(Bll) 


The assigned area can be read in as a function of x when t is the integration variable, 
and vice-versa. Therefore, the following transformations may be required: 


dA _ y dA 

(B12) 

dt dx 


_ y 2 d 2 A + f dA 

(B13) 

dx 2 ldx 


II 

!•- 

\z 

(B14) 

dx V dt 
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(B15) 



The ^1, j’ s are obtained by differentiating equation (B4). The additional partial 
derivatives which appear in the following equations are evaluated in appendix C. 


df 

01 i =— = 

0V 


(M 2 - 1) 


A dq / 1 SV SV 


(B16) 


BU 


1,2 


V dA 


d P (M 2 - 1) d P 


(B17) 


1,3 


ST 


dA 


i 


1 SM' 


(M 2 - 1) 8T (M 2 - 1) 8T 


(B18) 


0f ] 


|V — +j 

r 2 \ da. 1 da. 

J 


3 <M* - 1) \ 


j = 1,2,. . N 


(B19) 


The ^2 j's are obtained from equation (B5) 


0f 2 

09 1 ~ + 

sv /- -2 av / „ \2 


^ M-4. e. 


(M 2 - 1) 0V ( m 2 . ^ VA dq 


1 dA ^ SM 2 
SV 


(B20) 


fU = — P M + 

8 P (M 2 - 1) 0 P p 


(B21) 


Sf, 


0Q q = — = £ 

^ ST 


e_ 


(m 2 -i) 9T ( M 2 -i) 2Udq 


1 dA _ Ji SM' 


ST 


(B22) 
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B - 8f 2- P M 

P 2 ? j + 3- - 


1 > (IdA.^ 3M' 


3a j (M 2 -l) 3 *3 ( M 2 -l) 2 V Adq 


0a. 


3 = 1,2,. . N 


(B23) 


The . T s are obtained from equation (B6) 


3f« 

0 3 i = — = T 

J ’ 1 3V 


(y - 1)M 2 0^ 1 (yl) /l dA.^\ 3M 2 3, 


(M z - 1) 


3V 


(m 2 - l) 


2 \A dq 


0V 0V 


(B24) 


3f, 


% 2 = — “ “ T 
6 ’ Z ‘ dp 


(y - 1)M^ dJL 0 M 

(M 2 - 1) d P d P 


(B25) 


^3,3 


. 8f 3 _ (y - 1)M 2 T dJl { (y - 1)T (l dA _ A 31VT 


3T 


(M z - 1) 


0T 


2 \ 2 \ A d <* / 9T 


(m 2 - l) 


M 2 T /l dA J\djL T I f 3 
(M 2 _ 1} \A dq " y 3T ~ 0T T 


(B26) 


3fr 


^3,j + 3=^ 


= T 


(v- DM 2 M (y-1) (l dA f W 2 


[W‘-l) d(J i ( m 2 .!) 


2\A dq 


3a. 

] 


M* / 1 dA A 3y dq 


(M 2 - 1)\ A d * / 9a j aff j 


j = 1,2,. . N 


(B27) 


To obtain 0 i+ g ^ equation (B7) is rewritten using equations (31) and (35) to obtain 
(using subscript s to indicate the chemical reactions) 


2 

f . = £ — 

1+3 r 


s=l 


JX Q 

s' s 


i= 1,2,. . ., N 


(B28) 
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Taking derivatives of equation (B28) gives 


0f. 


%+3,l 


i+3 


8V 


= 0 i = 1,2,. . . , N 


(B29) 


i+3 , 2 


= ffi+3 g h+3 + 

dp p r 


Z---v 


ax. 


8p 


i = 1,2,. . . , N (B30) 


s=l 


^i+3,3 


8T r 


L 

I "<•’ - 


Zs 

8T 


i = 1,2,. . N 


(B31) 


s=l 


L 

9f • o 2 

s=l 


9 cr. 


i = 1,2,. . N j = 1,2,. . N (B32) 


Assigned Pressure Equations 

From the system of equations (3) and (25) to (27) the following equations are now 
used for the f^’s: 


f = _ _L 
1 pV dq 


(B33) 


= P 


_1_ dp 
r p dq 


- A 


(B34) 


f 3 = T 


V - l \ 1 dp _ 

V y / P- dq 


(B35) 


For f^g, i = 1,2, . . .,N, the equations are identical to those for the assigned area 
system (eq. (B7)). This means that equations for ctf i+ g, 2’ %+3 3’ an d 
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T /y - l\ d 2 p _ 1 /dp\ 2 

P\r/[ dq 2 P W . 


(B38) 


If pressure derivative transformations between x and t are required, they are iden 
tical in form to equations (B12) to (B15). 


h 

%,! V 

(B39) 

*1 

(B40) 

^1 , 3 = 0 

(B41) 

^l,i+3 = 0 j = 1,2, . . N 

(B42) 

„ M 

0 2 1 = -p 

3V 

(B43) 

f 2 M 

fio 2 P 

2,2 P 3P 

(B44) 

P 0T 2 dq 3T 

Pr 

(B45) 
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^, 3+3 = -P77--f-^|5 i = 1 > 2 >‘ 


3a. 2 n dq 3a 
3 y P 


N 






rp dgffl ^ T dp dy 

dT n 2 dq 3T 
P y 


j+3 - 


T dp dy 
_ 2 dq 3a. 

p y 3 


- T 


3a. 

3 


(B46) 

(B47) 

(B48) 

(B49) 


3 = 1,2,. . N 


(B50) 



APPENDIX C 


ADDITIONAL PARTIAL DERIVATIVES 

The equations for the Q. • partial derivatives in appendix B require additional de- 

>3 9 

rivatives for their evaluation. These are the partial derivatives of M , y , and 

the X g ’s with respect to V, p, T, and the a’s. 


Derivatives of 


The following relations are readily obtained from equation (14) 


L.m 2 m 

w r ^ 


aivyr 2 2VM 
3M w 

3V yRT 


BM 2 = M 2 M 2 By 


BT T 


3T 


Derivatives of y 


The following derivatives are obtained from equation (15) 


-JL - y(y - 1) 
3 a. 

l 


(ca 

M w--^ 

s 


N 


d Y _ 

BT 


r(y ~ 1 ) 
C 


Z' 


dT 


i=l 


(Cl) 


(C2) 


(C3) 


(C4) 


(C 5) 
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In these equations (C ). is the molar heat capacity of species i, given by equation (81), 
and Cp is given by equation (16). 


Derivatives of the X s Factors 

The formulas for the X g derivatives depend on the type of chemical reaction being 
considered. In these equations s is the reaction index. 

Type 1 - shuffle reaction . - Differentiating equation (36) and simplifying give the 
following derivatives: 



3p 

fV x d ln k s , k s V4 d ln K s 
ST s dT K g dT 


(C6) 


(C7) 


The derivative of the rate constant k g is calculated from equation (33) by logarithmic 
differentiation 


d ln k s _ n s , E s 
dT T RT 2 


(C8) 


The equilibrium constant K in concentration units, is given in terms of (K ) , the 

o P S’ 

equilibrium constant in terms of partial pressures, by 


-Ay 

K s = (Vs (RT) 


-AG°/RT -Ay 
= e s (RT) s 


(C9) 


where A y g is the change in number of moles of species for the reaction and AG° is the 
standard molar free energy change for the reaction. Logarithmic differentiation of this 
equation at constant pressure gives 


d!nK s AH° A„ s 
dT " ht 2 _ T 


(CIO) 
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where AH° is the standard molar enthalpy change for the reaction. Equations (C8) 
and (CIO) hold for all types of reactions being considered. 

The remaining X_ derivatives are 

b 


ax. 


a cl, 


= k s°2 



k s ff l 


(Cll) 


(Cl 2) 



k s a 4 


K. 


(Cl 3) 



k s g 3 

K 


(Cl 4) 


Type 2a - three-body recombination . - Differentiating equation (37) gives the 
following derivatives: 


3X 


dp 


- = k^M^cr, <j 0 
s S 1 l 


^s =x d in k s , k s M s cr 3 d In K s 
3T s dT dT 


ax c X m 1 

®= k spM s a 2+ s hi 


a a. 


M. 


ax o X m 2 

-^ = kp M <7i + -A-Al 

3 a s S 1 M s 


BX s _ k s M s + X s m 3,s 
3ff 3 K s M s 


(Cl 5) 

(Cl 6) 

(Cl 7) 
(Cl 8) 
(Cl 9) 
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Type 2b - two -body dissociation . - Differentiating equation (40) gives the following 
derivatives: 


SX s_ k s M s 


dp 


K 


°1 a 2 


0Xg = X dlnk s, k s M sPV 2 dlnK £ 


3T 


dT 


K 


dT 


3X s_ 1 X s m l, s 


3 ( 7 . 


K_ 


M. 


3X s _ k s M S P CT l . X s m 2, B 


3(7, 


K 


M, 


0X s X s m 3 s 

— — = k M + -g .?■? s 

3(7, S s 

o S 


(C20) 


(C21) 


(C22) 


(C23) 


(C24) 


Type 3a - unimolecular decomposition . - Differentiating equation (41) gives the 
following derivatives: 



CD 

X 

Cfi 

II 

_ k s a 3 


dp 

2 

P 

8X s 

d In k 
- X s 

k a. a, d In K 
, s 1 2 s 

3T 

s dT 

K g dT 


3X 

s _ 

_ k s CT 2 


3<T i 

K 

s 


^s = 

_ k s a l 


3<j 2 

K 

s 


(C25) 


(C26) 


(C27) 


(C28) 
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(C 29) 


Type 3b - two -body recombination . - Differentiating equation (42) gives the follow- 
ing derivatives: 


ax s Vs 


p\ 


0X o dink k (7„ dlnK 
s v s , s 3 s 

= x s + 


0T 


dT 


pK dT 


5 

9 a. 


= k a 


s 2 


d(T„ 


= Vi 


3X a k„ 

s s 


d<J f 


pK 


(C30) 


(C31) 


(C32) 


(C33) 


(C34) 


Derivatives of a and M 

Before differentiating equations (12) and (13) we use equations (8) and (B7) to write 
and M in the forms 



(C35) 


(C36) 
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These equations hold for both t and x as the independent variable with the appropriate 
definitions of the f^ + g's. Now define the quantities 


N 

s r M wE f i+3 
i=l 


(C37) 


N 


S 0 = M 
2 w 


(rt )^ 4-3 


(C38) 


i=l 


The equations for and SB then become 


^ = S. - 


’ erf 


(C39) 

(C40) 


The derivatives of and SB are then written in terms of the and S 2 deriva- 


tives as 


-M. 

d°. 

1 


a^ _ 

as 1 

sS 

(C41) 

av 

av 

av 


M - 

as x 

d<M 

(C42) 

d P 

dp 

dp 


d<# _ 

as x 


(C43) 

aT 

3T 

aT 



as 


1 0 * 


da. da. 

1 1 


i = 1,2, 


N 


(C44) 


dS 

av 


= iz 


2 

v / av 


(C45) 
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(C46) 


3JL 

3p 



as^ 

3p 


A 


ML (r - A !!l + !l 

3T \ y j 3T ^2 3T 


33 

3 a. 
1 



i - 1 » 2, . . N 


(C47) 


(C48) 


Differentiating equations (C37) and (C38) and using the definitions of the 0. .'s give the 

J 

following expressions for the and Sg derivatives: 




N 

E ^i+3, 


i=l 


1 




N 

E ^+ 3 ,2 


i=l 




N 


E ^i+3, 3 

i=l 





3 = 1 , 2 ,. 


N 



(C49) 


(C 50) 


(C51) 


(C52) 


(C53) 


3S 


2 


dp 



(C54) 
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CD 

ID 

ID 

O 

O 



I 


I , 



o 
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APPENDIX D 


DETAILS OF PROGRAM INPUT AND ERROR MESSAGES 

The description of the data cards is divided into three parts. First, the thermody- 
namic data are described. Next, the complete case data for a single problem are 
described. We then describe the data cards for any problems following the first. This 
will show the user how to run several cases at one time without making a complete data 
deck for each case. Finally an explanation is given for all error messages in the pro- 
gram. 


Input Preparation 

Thermodynamic data. - The thermodynamic data are not considered part of each 
case data. The necessary data for all species considered in one computer run are en- 
tered before the first case. The first card of the data deck tells where the thermody- 
namic data will be read from. Columns 1 to 4 of this card must contain either the word 
CARD or TAPE. If CARD appears, the program reads the data from cards which 
directly follow the first card. The data are then written out on logical tape unit 4 for use 
later in the calculation. When TAPE appears on the first data card the thermodynamic 
data are read from a tape that must be mounted on logical tape unit 4. Each data card 
corresponds to one logical record on the tape. The format of the thermodynamic data 
cards is as follows. The first card (or tape record) gives the temperature range limits 
TLOW, TMID, and THI (in that order) in kelvin units. The card format is 3F10. 3. All 
the thermodynamic data follow this card. They consist of four cards for each species. 
Card 1 contains the species name, the names of its chemical elements and their stoichio- 
metric coefficients according to the format (2A4, 16X, 4(A2,F3.0)). For example, 




15 14 15 » 1? 18 

10 20 21 22 23 24 

|25 26 27 28 29 3cj 31 32 35 34 35 3*| 

3? 30 59 40 41 4?j 

43 44 45 46 4? 48 

49 SO 51 52 53 S4| 

K5 56 57 50 59 

.1 62 «5« 65 6«j 

,67 68 69 TO 71 72 

j73 74 75 76 77 ?« 70 • 

B2H20 4 

& 



B 2 . hi a . © 

4. 





ill, . -1 







^ ‘ l. - L 



The remaining three cards contain the curve fitted coefficients A^Ag, . . . , A^ of equa- 
tions (81) to (84) according to the format (5E15.8). Coefficients for the upper tempera- 
ture range TMID -THI appear first. They are followed by A 1 ,A 2 , . . . , A 7 for the lower 
range TLOW-TMID. Any number of species data sets may be read in and these can be 
in any order . The last species data cards must be followed by a card with the word END 
in columns 1 to 3. The CARD option will generate a permanent thermodynamic data tape, 
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of course, if a tape is actually mounted on logical tape unit 4. 

First case data . - The data cards for a single (or first) case are now described in 
the order they appear in the data deck. All names must be left adjusted in their fields. 

(1) Title - The first card of the case data is the title card. The title is read with ' 
format (20A4) and printed out at the top of the first page of output. 

(2) Reactions - Chemical reactions are listed, one per card, in any order. The 
card contains the participating species names and the rate constant parameters A., n., 
and Ej (see eq. (33)) for the forward direction as written. The format of a reaction 3 
card is as follows: 


Type 1 reaction: 

S 1 +S 2- S 3 + S 4 

Columns 

Contents 

1 - 8 

name of species 

10 - 17 

name of species S 2 

21 - 28 

name of species 

30 - 37 

name of species 

Type 2a reaction: 

M + Sj + S 2 ~Y * Sg + M 

1 - 8 

name of species 

10 - 17 

name of species S 2 

21 - 28 

• 

name of species 

30 

the letter M 

Type 2b reaction: 

M + S 3 S x + S 2 + M 

1 

the letter M 

10 - 17 

name of species 

21 - 28 

name of species 

30 - 37 

name of species S 2 

Type 3a reaction: 

S 3^ S 1 + S 2 

1 - 8 

blank 

10 - 17 

name of species 

21 - 28 

name of species 

30 - 37 

name of species S 2 


Explanation 


M = third body molecule 


M = third body molecule 
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Type 3b reaction: 
Columns 


1 - 8 

name 

10 - 17 

name 

21 - 28 

name 

30 - 37 

blank 

For all types of reaction 

42 - 56 

A s 

59 - 68 

n s 

71 - 80 

E j 


Contents Explanation 

of species 

of species Sg 

of species 

the rate constant parameters are listed as follows: 

preexponential factor for k. 
in CGS units, format El 5. 8 

dimensionless temperature 
exponent, format F10.3 

activation energy in cal/mole, 
format F10. 3 


The number of reaction cards may not exceed 30. The end of the reaction list is 
signalled by a blank card after the last reaction card . The program makes up its own 
list of reacting species from the species names on the reaction cards. No separate list 
of reacting species is needed in the data cards . 

(3) Inert species - The names of any nonreacting species are listed, four per card, 
starting in columns 1, 17, 33, and 49. The format is (4(2A4,8X)). The end of the inert 
species list is signalled by a blank field after the last species name . If there are no 
inert species, a blank card must be placed here. If there is an exact multiple of four 
inert species, a blank card must follow the last species card. The total number of inert 
plus reacting species may not exceed 25. 

(4) Version and units - A single card specifies the variable of integration and the 
assigned variable (pressure or area). It also gives the desired input and output units. 


Its makeup is as follows: 


Columns 

Contents 

Explanation 

1-8 

TIME 

time is the fundamental variable 


DISTANCE 

distance is the fundamental variable 

11 - 18 

PRESSURE 

pressure is assigned 


AREA 

area is assigned 


blank 

velocity is zero, no assigned 



pressure 

21 - 23 

CGS or blank 

input will be in internal (cgs) units 
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Columns 


Contents 


Explanation 



FPS 

input will be in FPS units 


SI 

input will be in SI units 

.4 

31 - 33 

CGS or blank output in internal (cgs) units 


FPS 

output in FPS units 


SI 

output in SI units 

(5) Controls - The controls are input through a NAMELIST named PROB. The 
names of the variables in PROB are given below. If no value for a variable is input 
(default), then the program uses the standard option for that variable. Standard options 
are indicated by an underscore. 

Name 

HMIN 

Value 

Explanation 

minimum step size in cm or sec; values are 0.0001 cm 
or 5.0X10"® sec if defaulted 


HMAX 

maximum step size in cm or sec; values are 0.10 cm 
or 5.0x10"^ sec if defaulted 


HINT 

initial step size in cm or sec; equal to HMIN, if 
defaulted 


EMAX 

maximum allowable relative error per step; equal to 
0 . 0001 , if defaulted 


allmi 

.TRUE. 

all third -body efficiencies are equal to 1; none are 



input 


.FALSE. 

some third-body efficiencies will be read in 

ELIM 

.TRUE. 

automatic elimination from error considerations of 



species with nonrepresentative errors is desired 


.FALSE. 

no automatic eliminations 

CONC 

.TRUE. 

composition is to be output as molar concentrations 


.FALSE. 

composition is to be output as mass fractions 

EXCHR 

.TRUE. 

net energy exchange rates are to be output 


.FALSE. 

net reaction conversion rates are to be output 

ITPSZ 

1 

an area or pressure table will be input 


2 

area or pressure will be specified by polynomial 
equation. 
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Name Value Explanation 

3 LSUBM and ETA will be input for special area equa- 

tion, eq. (80) , 

4 D, VISC, BETA, and ETA will be input for special 

area equation, eq. (80) 

5 zero-velocity case - no assigned pressure 

IPRCOD 1 distance versus area profile is given 

2 distance versus pressure profile is given 

3 time versus area profile is given 

4 time versus pressure profile is given 

array for time or position half of assigned variable 

table; must be in user’s chosen input units 

array for area or pressure half of assigned variable 

table; must be in user’s chosen input units 

NTB total number of stations in input area or pressure 

table; must be less than or equal to 40 

CX3 coefficient of q in pressure/area equation, 

(eq. (79)) 

CX2 coefficient of q in eq. (79) 

Cxi coefficient of q in eq. (79) 

CXO constant term in eq. (79) 

LSUBM characteristic shock tube reaction length for special 

area equation, (eq. (80)) - must be given in cm 

-g'PA «... dimensionless exponent in special area equation 

(eq. (80)) for boundary layer correction 

D hydraulic diameter of shock tube in cm 

YEsc viscosity coefficient in g/(cm - sec) 

BETA dimensionless boundary layer parameter used to cal- 

culate LSUBM 

END - — final print station in user’s chosen input units; must 

be a time if time is the fundamental variable and con- 
versely for distance; not needed if array of print sta- 
tions is input 
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Name 

Value 

Explanation 

DELP 


increment between print stations; same units as END; 
must not require more than 50 print stations; if de- 
faulted, 25 equal increments are taken 

PRINT 


array of values of the variable of integration at which 
output is desired; must be in user’s chosen input 
units 

APRINT 


array of areas or pressures at which output is desired; 
may only be used if table of assigned pressure or 
areas is given, and must be in user’s chosen input 
units 

NPRNTS 


total number of input print stations; must be less than 
or equal to 50 

EVSTEP 

.TRUE. 

print results after every integration step 


.FALSE. 

do not print results after every integration step 

DBUGO 

.TRUE. 

print intermediate output (see p. 38) 


.FALSE. 

do not print intermediate output 

COMBUS 

.TRUE. 

perform equilibrium combustion calculations 


.FALSE. 

do not perform equilibrium combustion calculations 

SHOCK 

.TRUE. 

perform frozen and equilibrium shock calculations 


.FALSE. 

do not perform shock calculations 

TCON 

.TRUE. 

hold temperature constant 


.FALSE. 

do not hold temperature constant 

RHOCON 

.TRUE. 

hold volume (density) constant 


.FALSE. 

do not hold volume (density) constant 


(6) Third-body efficiencies - In order to input third -body efficiencies, the switch 
ALLM1 must be set to .FALSE, in PROB. If ALLM1 = .TRUE. , then there are no input 
cards from this section. Only those efficiencies which are not equal to 1 actually need to 
be read in. Three efficiencies can be listed on a single card. The exact card format is 


Columns 

Contents 

Explanation 

1 - 37 

a dissociation- 
recombination 
reaction 

these columns must be exactly the same 
as columns 1 - 37 of the reaction card 
which contains the same reaction 
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Columns 


Contents 


Explanation 


39 - 46 

species name 

47 - 52 

third-body 


efficiency 


53 - 60 

species name 

61 - 66 

third -body 


efficiency 

67 - 74 

species name 

75 - 80 

third -body 


efficiency 


third-body species name , left adjusted 

A 

efficiency of species listed in card 
columns 39 - 46 for the reaction listed 
in card columns 1 - 37; efficiency is 
read by the format F6. 4 

same form as card columns 39 - 46 

same form as card columns 47 - 52 

same form as card columns 39 - 46 
same form as card columns 47-52 


There are no fixed rules regarding (1) the order of the efficiencies on any card, 

(2) the position of efficiencies on a card; that is, if the user desires, he can put just one 
or two efficiencies on a card and he can put them in any of the three available fields , 

(3) the order of the efficiency cards, (4) the total number of efficiency cards. The end 
of the third -body list is signalled by a blank card following the last efficiency card . 

(7) Initial conditions - The initial conditions are input through a NAMELIST named 
START. This NAMELIST contains the names of all the species in the master species 
list as variable names. Hence, initial concentrations are input by "species name = 
initial concentration". For example, one of the NAMELIST cards could look like 


12 3 4 5 

6 

7 8 9 10 » 12 

13 14 IS 16 17 18 

19 20 21 22 23 24 

25 2« 27 28 29 3oi 41 32 55 54 55 3«| St 58 39 40 u 42 

Ub 44 45 46 47 

U30 51 52 55 54 

55 56 57 58 59 oojdl 62 63 64 65 66^7 68 69 70 71 72 
, i , , L r ■ — 

73 74 75 76 77 78 79 8 

iS TA 

R 

T H. 2 

=0.50, 

0 2=0 . 

3 75 . H= 0.015 

, 0=0. 

005 H 

o 

o 

n 

o 

1 Cvij 

95.,.. 

OH = 01. 01. .. 



All species concentrations are initialized to zero so only those concentrations which are 
initially nonzero actually need to be read in. The names of the other variables in START 
along with standard options are given next. All parameters except pressure, must be in 
the user’s chosen input units. Note that only ONE of the names P, RHO, MDOT, and 
AREA is used for any case. For the possible choices see "Starting Conditions", in the 
section GENERAL DESCRIPTION OF PROGRAM USE 


Name Value Explanation 

TIME time in sec 

p pressure 
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Name 


Value 


Explanation 


X axial position 

V velocity 

a 

RHO density 

T temperature 

MACH Mach number 

MMHG . TRUE . input pressure has units of mm of mercury 


.FALSE. input pressure is given in the user’s 

chosen input units 

MOLEF . TRUE . species concentrations will be input as 

mole fractions 

.FALSE. species concentrations will be input as 

mass fractions 

(8) Permanently neglected species - The last data for a case are the names of those 
species which are to be permanently neglected from all error considerations. The 
neglected species cards have exactly the same format as the inert species cards. They 
are listed, four per card, starting in card columns 1, 17, 33, and 49. The end of the 
neglected species list is signalled by a blank field following the last neglected species 
name . If there are no species to be neglected, then there must be a blank card here. 

If there is an exact multiple of four neglected species, then the last card containing four 
names must be followed by a blank card. 

(9) Final card - Each case must end with a card containing the word FINIS in card 
columns 1 to 5. 

Multiple cases . - At the end of each case the program tries to read data for another 
case. Hence, several cases can be computed during one computer run. As mentioned 
earlier, the program was designed to eliminate the necessity of repeating data which do 
not change from case to case. This objective was accomplished by adding one switch, 
named the ACTION switch, to the input list for the second and all following cases of a 
computer run. By using the ACTION switch the user can tell the program to retain much 
of the data from the previous case for use by the present case. This means that only 
those data which change between the present case and the previous case must actually be 
input. The input cards for each case after the first must correspond to the following 
specifications. Notice particularly that each case after the first case of a computer run 
must contain an ACTION card. 

(1) Title - The first card of each case data deck must be a title card. The format 
is the same as before. 
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(2) ACTION card - The value of the ACTION switch must be punched in columns 
1 to 6. The possible values are any one of the words NEW, CHANGE, REPEAT, or 
ADD. 

If the word NEW is input, then the program will completely reinitialize. The re- 
mainder of the case data must be exactly like the case data for a first case. The user 
has told the program not to retain any of the data from the previous case. 

The word CHANGE enables the user to change the reaction rate parameters of one 
or more of the reactions from the previous case. A set of reaction cards, in any order, 
containing the reaction - written exactly as it was for the previous case - and the new 
rate parameters must follow the CHANGE card. The end of the change list is signalled 
by a blank card following the last reaction card . Following the CHANGE list, there must 
be another ACTION card. This time the options are only ADD or REPEAT . 

The REPEAT option tells the program to use the reactions, reaction rates, and 
inert species which are stored at the time this card is input. If a REPEAT card imme- 
diately follows the title card, then the program will use the reactions, reaction rates, 
and inert species from the previous case. The reactions, unchanged reaction rates, 
and inert species from the previous case along with the changed reaction rates will be 
used if the REPEAT card is preceded by a CHANGE list. 

The word ADD tells the program to save the reactions, rates, and inert species it 
has and to prepare to read in one or more additional reactions. A set of reaction cards, 
again in any order, containing the additional reactions and their reaction rate parameters 
must follow the ADD card. The end of the add list is signalled by a blank card following 
the last reaction card . If an ADD card immediately follows the title card, then the pro- 
gram will use the inert species from the previous case along with the reactions from the 
previous case plus the added reactions. The reactions and inert species from the pre- 
vious case along with the changed rates and the added reactions will be used if the ADD 
card is preceded by a CHANGE list. 

(3) Version and units - The fundamental variable, input units switch, and output 
units switch must be reset for each case. The format for this card is the same as be- 
fore. 

(4) Controls - Only those controls which are to be changed from their values in the 
previous case need to be input. A $PROB card with no variables listed must still be put 
in even if no changes are to be made . 

(5) Third-body efficiencies - There are no input cards from this section if ALLM1 = 
.TRUE. . If ALLM1 = .FALSE, then there must be some input cards from this section. 
The program will use all the third-body efficiencies from the previous case if the only 
input card from this section is a blank card. The user can change some or all of the 
efficiencies from the previous case and add new efficiencies by inserting third -body 
efficiency cards here. Again, the end of the third-body efficiency list is signalled by a 
blank card. 
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(6) Initial conditions - All the parameters in NAMELIST START are reinitialized to 
zero or their standard option before each case. Hence, the input of initial conditions is 
exactly the same as it was for a first case . 

(7) Permanently neglected species - The names of species which are to be perma- 
nently neglected from all error considerations are not retained from one case to the 
next. Hence, a neglected species list must be input for each case. As before, the end 
of the neglected species list is signalled by a blank field. 

(8) Final card - The last card of each case must have the word FINIS in card 
columns 1 to 5. 


Error Messages 

Every error message contains two pieces of information: One is the name of the 
subroutine which generated the message. The second is a statement of the error condi- 
tion and, whenever possible, a list of the current value of pertinent parameters. Fol- 
lowing is a list of the error messages which the program can generate and a brief ex- 


planation of each 

message. 


(GCKP) 

END OF THIS CASE - READ 
DATA FOR NEXT CASE 

Normal end of case reached 

(GCKP) 

A FATAL ERROR HAS OCCURRED 
- CASE TERMINATED 

Case ended due to unre- 
coverable error condition 

(KINP) 

THE INPUT REACTION LIST 
DOES NOT CONTAIN THE 
REACTION S 1+ S 2 =S 3 + S 4 

Error in entering third -body 
efficiencies or changing a 
reaction rate using 
ACTION switch 

(KINP) 

THE MASTER SPECIES LIST DOES 
NOT CONTAIN THE SPECIES 

The given species is not in 
the master species list 
ALSP in the BLOCK DATA 

(KINP) 

THE INPUT SPECIES LIST DOES 
NOT CONTAIN THE SPECIES 

Error in enter ing third -body 
efficiencies or permanently 
neglected species list 

(KINP) 

INVALID INPUT COMPOSITION 
SUM = x.xxxx 

Input concentrations do not 
sum to 1 . 0 

(SHOCKS) 

EQUILIBRIUM SHOCK CALCULA- 
TION FAILED 

Iteration of equilibrium 
shock equations failed to 
converge 
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(SHOCKS) 

FROZEN SHOCK CALCULATION 
FAILED 

Iteration of frozen shock 
equations failed to con- 
verge 

(EQLBRM) 

DERIVATIVE MATRIX SINGULAR 

Singular derivative matrix 
encountered in equilibrium 
calculation 

(EQLBRM) 

SINGULAR MATRIX 

Singular matrix encountered 
in equilibrium calculation 

(EQLBRM) 

RESTART 

Equilibrium calculation re- 
started 

(EQLBRM) 

xx ITERATIONS DID NOT 
SATISFY CONVERGENCE 
REQUIREMENTS 

Iteration of equilibrium 
equations failed to con- 
verge 

(OUTP) 

INVALID COMPOSITION 

Mass fraction sum not equal 
to 1.0 

(PRED) 

WARNING MACH NUMBER 
= x.xxxx IS APPROACHING 
1.0 

0. 90 < M < 1 . 10; Numerical 
problems occur if Mach 
number gets close to 1 . 0 
for assigned area compu- 
tations 

(THRM) 

ERROR T = xxxx.xx IS OUT 
OF RANGE 

Temperature (deg K) is 
above the range of the 
thermodynamic data 

(THRM) 

WARNING T = xxxx.xx IS 
OUT OF RANGE EXTRAPO- 
LATED VALUES RETURNED 

Temperature (deg K) is be- 
low the range of the ther- 
modynamic data 

(INTE) 

RESTART INDEPENDENT VARIA- 
BLE = xxx. xxx (CGS UNITS) 

CONTROLLING VARIABLE = 

H(N-l) H(N) H(N+1) 

XX. XX XX. XX XX. xx 

K(N-l) K(N) K(N+1) E(N+1) 

xx.xxxx.xxxx.xxxx.xx 

xx.xxxx.xxxx.xxxx.xx 

The kinetic calculation is 
about to be restarted; 
present location as well as 
step sizes and results of 
last 3 steps are given 

(INTE) 

10 RESTARTS HAVE OCCURRED 

Case terminated; too many 
restarts 


71 



(INTE) 


(LESV) 

(LESV) 


(CINP) 


COMPOSITION ERROR - NEGATIVE 
CONCENTRATIONS 

SINGULARITY 


ROW xx OF THE COEFFICIENT 
MATRIX IS ALL ZEROS 

XX. XX . . . XX. XX 
XX. XX . . . XX. XX 

XI = XX. xx IS OUT OF RANGE 
X(l) - xx. xx X(N) = xx. xx 


The concentration of one or 
more species is negative 

Singular coefficient matrix 
encountered in kinetic 
calculation 

Some row of the coefficient 
matrix is all zeros; the 
coefficient matrix is given 

Abscissa is out of the range 
of the assigned variable 
table; the range of ab- 
scissas is given 
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APPENDIX E 


TEST CASE DATA AND RESULTS 

In this appendix input data and computed results for several kinetics problems are 
presented. The data are set up as a single computer run to show the use of the multiple - 
case options CHANGE, ADD, REPEAT, and NEW for the ACTION switch. The data 
cards used to execute these nine test cases are listed following the case descriptions. 
Sample listings of results of all cases are then presented. Only selected pages of output 
are reproduced here, although the input data call for more extensive printout. 


Description of Test Cases 

Case 1 - This case is the dissociation of Brg in a shock tube. It shows the use of 
the shock option and the Mir els boundary -layer equation (eq. (80)). 

Case 2 - This problem is a hydrogen-air ignition and combustion in supersonic flow 
at constant area. The abbreviated reaction mechanism does not contain the reactions of 
H 2 O 2 with the species H, O, and OH. 

Case 3 - This is the same problem as in case 2 and illustrates the use of the 
CHANGE and ADD options of the ACTION switch. The rate constants for reactions 1 
and 3 are changed slightly and three reactions of HgOg are added to the mechanism. 

Case 4 - This problem is the same as case 3 with output in FPS units. 

Case 5 - This problem is the constant pressure ignition and combustion of methane 
in a supersonic air stream. It illustrates the use of a unimolecular reaction (reaction 1) 
and the computation of equilibrium combustion conditions for a constant pressure reac- 
tion. 

Case 6 - This problem is the same as case 5, with time used as the integration 
variable. Instead of assigning a constant pressure, we have assigned the area versus 
distance profile computed in case 5. The computed results do not show perfect agree- 
ment with those in case 5 because of curvefitting deviations. 

Case 7 - This is another methane-air combustion problem. A pressure profile (in 
atmospheres) is assigned as a function of distance and output is in SI units. The profile 
was obtained from the results of a computation which assigned a constant area of 0. 10 
square meter. 

Case 8 - This problem is a constant volume slow reaction of hydrogen and oxygen at 
a constant temperature of 773 K. 

Case 9 - This problem is a high -temperature air ionization reaction in constant area 
flow. The initial temperature and pressure are generated by a strong shock wave. 
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Test Case Data Cards 


4> DATA 


BROMINE DISSOCIATION IN A SHOCK TUBE CASE 1 

M +BR2 = BR +BR 6.99E+11 0-50 35500. 

XE 

DISTANCE AREA 

$ PRO B ITPSZ=3, 1SUB«=32200. ,ETA=0.50, SKOCK=. TRUE. , EN D= 1 0- , DELP=0. 5 

ALLM1=. FALSE. , SEND 


M 

+ BB2 

= BR +BR 


BR 2 

3.80 

S START 

P = 0. 

1227, WACH=3. 2646 ,T=299. 9 , 

BR2=0.0 1 ,XE=0.99 SEND 


FINIS 







H2 

-AIR SUPERSONIC COMBUSTION 

(STOICHTCMETFIC) 

CASE 

NEB 






R 2 

+ OH 

= H20 +K 

2. 19E+13 

0. 

5150. 

H 

+ 02 

= OH +0 

1.25E+14 

0. 

16300. 

0 

+ H2 

= OH +fi 

1. 74E+13 

0. 

9450. 

H 

+02 

= H02 +M 

1. 59E+15 

0. 

-1000. 

H 

+ H 

= H2 +M 

1.0F+18 

-1.0 

C. 

H2 

+ H02 

= H202 + H 

0.60E+ 12 

0. 

24000. 

B 

+ H202 

= OH +OH 

1. 17E+17 

0. 

45500. 

H 

+ H02 

= OH +OH 

7.00E+13 

0. 

0. 

H 

+ OH 

= H20 + M 

7.50E+23 

-2. 60 

0.' 

0 

+ 0 

= 02 + K 

1 . 38E+18 

-1. 

340. 

0 

+ H20 

= OH +OH 

5.75E+13 

0. 

18000. 

H2 

+ 02 

= OH +OH 

1.00E+13 

0. 

43000. 

OH 

+ H02 

= H20 +02 

6.00E+12 

0. 

0. 

0 

+ H02 

= OH +02 

6.00E+12 

0. 

0. 

H02 

+ H02 

= H202 +02 

1.80E+12 

0. 

0. 

N 2 






DISTANCE AREA 

CGS CGS 




SPROB 

BINT = 

0.01, ITPSZ=2,CXO=2QOO. , 

ALLM1=. FALSE., 

NPRNTS=15. 


PRINT= 3.0 48 

,4.572,6.096,7.620,0. 14 4,12. 

192, 15. 2 4, 18. 28R. 2 1.336. 24. 384. 


27.432,30.48,45.72,60.96,76.20, 

SEND 



H 

+ 02 

- H02 +M H2 

5.0 02 

2.0 H 20 

32. 5 

H 

+ 02 

= H02 +M N 2 

2.0 



H 

+ OH 

= H20 +M H2 

4.0 N 2 

1.6 H20 

20.0 

H 

+ OH 

= H 20 +M 

02 

1.6 


H 

+ H 

= H 2 +K 02 

2.0 H 2 

5.0 H 20 

15.0 

H 

+ H 

= H2 + M N2 

2.0 



M 

+ H202 

= OH +0H 02 

0-78 H20 

6.0 H202 

6.6 

H 

+ H202 

= OH +0H 


H2 

2.3 

$ ST ART 

X = 0. 

,TTKE=0. , P=0. 95 60, T= 1559. , M ACH=5 . 03728, 




H 2=0 

.2958,02=0. 1480, N 2=0. 5562 

SEND 



H02 


H202 




FINIS 






H2-AIR SUPERSONIC COMBUSTION {COHP1ETE HECHANISH - 

PREFERRED RATES) CASE 

CHANGE 






H 2 

+ OH 

= H20 +H 

2. 10E+13 

0. 

5100. 

0 

+ H2 

= OH +H 

2. 96E+13 

0. 

9800. 

ADC 






OH 

+ H202 

= H20 +H02 

1-00E+13 

0. 

1800. 

0 

+ H202 

= OH +H02 

8. 00E+13 

0. 

1000. 

H 

+ H202 

= H20 +0H 

3. 18E+14 

0. 

9000. 


DISTANCE AREA 
SEROE SEND 


$ START V=455172. 99, RHO=1. 56283 E- 04, T= 1559. , 

H2=0. 2958,02=0. 14 8 0, N2=0 . 5562 , $FND 

H2C2 HC2 

FINIS 


A 
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H2-AIR SUPERSONIC COMBUSTION (OUTPUT IN FPS UNITS) CASE 4 

REPEAT 

DISTANCE AREA FPS 

SPROB SEND 

$ START V=455172-99,T=1559. , MDOT= 1 . 42272E+ 05 , 

H2=0. 2958,02=0. 1480,N2=0.5562, SEND 
HO 2 H202 

FINIS 

METHANE-AIR COMBUSTION AT CONSTANT P (ONE UNIMOISCULAP REACTION) CASE 5 


NEW 

CH4 

CH4 
+ 02 

= CH3 
= CH3 

+ H 

+ H02 


3.80E+14 

1.00P+13 

0. 

0. 

103000. 

630P0. 

H 

+02 

= H02 

♦ M 


1 . 59E+15 

0 . 

-1000. 

CO 

♦ 02 

= CO 2 

+ 0 


1.60E+13 

0 . 

41000. 

CH 3 

+02 

= CH20 

+ OH 


7.5E+10 

0. 

0. 

H 

+ CH 4 

= CH3 

+ H2 


6.90E+ 13 

o. 

11800. 

0 

+ CH4 

= CH 3 

+0 H 


2.00E+13 

o. 

9200. 

OH 

+CH4 

= CH3 

+ H20 


7.20E+13 

0. 

5900. 

H 

+ 02 

= OH 

+ 0 


1. 25F+14 

0. 

16 300. 

0 

+ H2 

= OH 

+ H 


2.96E+13 

0. 

980C. 

H2 

+ OH 

= H20 

+ H 


2. 10E+13 

0. 

5100. 

CO 

+OH 

= C02 

+ H 


U.20E+11 

0. 

1000. 

CH3 

+0 

= CH20 

+ H 


1.90E+13 

0. 

0. 

CH 20 

+ H 

= HCO 

+ H2 


1.00E+13 

0. 

2000. 

CH 20 

+ OH 

= HCO 

+ H20 


7.0E+10 

0.70 

1000. 

CH2C 

+ 0 

= HCO 

+ 0 H 

/ 

4.00E+11 

0.60 

4000. 

HCC 

+ 0 

= CO 

+ OH 

/.a/ 

1. 80E+1 1 

0.50 

0 . 

HCC 

+ OH 

= CO 

+ H20 

/ ir p 1 
I o w 

1. 10E+11 

0. 50 

0. 

HCC 

+ H 

= CO 

+ H2 

/'*'-$/ 

1.50E+12 

0.50 

0. 

M 

+ HCO 

= H 

+ CO 

/' 0-0/ 

2.C0E+13 

0.50 

28600. 

HCC 

+ 02 

* CO 

♦ H02 

J (JJO I 

1.00E+11 

0.50 

5400. 

HC 2 

+ H02 

= H202 

+0 2 

1 a v 
~o >/ 

/ O '0/ 

1.80E+12 

0. 

0. 

H 

♦ H02 

= OH 

♦ OH 

7.00E+13 

0. 

0 . 

0 

+ H02 

= OH 

+ 02 

/j asr/ 

6.00E+12 

0. 

0 . 

OH 

+ H02 

= H20 

+ 02 


6.00E+12 

0. 

0 . 

M 

+ H202 

= OH 

+ 0H 

1. 17E+17 

0. 

45500. 

H 

+ OH 

= H20 

+ M 


7.50E+23 

-2.60 

0 . 

M 

+ 02 

= 0 

+0 


2.75E+19 

- 1 . 

118700. 

0 

♦ H20 

= OH 

+ 0H 


5.75E+ 13 

0. 

18000. 


N 2 

DISTANCE PRESSURE 

JFROB ITPSZ=2, CXO=1.730,HMIN=1.0E-4,HMAX=0.2, HINT=. 02,EMAX=.0001, 

PRINT=5.0, 10.0, 25. 0,35. ,38. , 39 . 5 , 4 C. , 40 . 5,4 1 . , 42. , NPRNTS=1 0 , ELTM=. FALSE. , 
COMBUS=.TROE. , ALLM1=. FALSE. , SEND 

H +02 - H02 +F! CH4 5.0 02 2.0 N2 2.0 

H +02 = R02 + M H20 32.5 CO 2.0 C02 7.5 

H +02 = H02 + B H2 5.0 

M +H202 = OH +OH 02 0.78 H202 6-6 H20 6.0 

H +OH = H20 +M N2 1.6 H20 20. 02 1.6 

$ START ARE A= 1000. ,MACH=2. ,T=1645. , 

CH4=0. 049768,02=0. 19907 2, N2=0. 75116, SEND 
OH HC2 H 0 

CO 2 H202 

FINIS 

METHANE-AIR COMBUSTION (ASSIGNED AREA - TIME INTEGRATION) CASE 6 

REPEAT 

TIME AREA 

SPROB ITPSZ=1,IPRCOD=1, HM IN=6. 25E- 1 C, HINT= 1 . 25E-7, HMAX=1. 25E-6 , 

COHBOS=. FALSE. , A LLM 1=. F A LS E. , ELIM=. FALSE. , 

XTE=0 ,5, 10, 15,20,25,30,35,36,37,38,39,40,40.5,41,42, 

ATB=1000. , 1000.45, 1002.02, 1004.83, 1009.24, 1016. 16,1028.32, 1057.02,1068.70, 
1085.55, 1 112.40, 1163.57, 1296.5 9, 1371 .48, 1384.47,1400.45, NT3=16, 

PRINT=6. 352"? 3E-5 , 1. 270555 F-4 , 1.90582E-4, 2. 223 46E-4,2. 54109E-4, 

2. 6615E-04, NPRNTS=6, SEND 

SST ART P= 1. 730 , V= 15741 2. 62, T= 1 645. , 

CH4 = 0. 04 9768, 02=0. 199072,N2=0. 75 116, SEND 
OH HC2 .IT 0 

CO 2 H202 HCO 

FINIS 
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KETHANE-AIR COMBUSTION (ASSIGNED PRESSURE) CASE 7 

REPEAT 

DISTANCE PRESSURE SI 

JEROB ITPSZ= 1 , HKIN=0.0001,HINT=0.02,HMAX=0.20, IPRCOD=2, 

XTB=0. ,5.,10. , IS., 20. # 2S. r 27.5,30. ,32. 5, 35., 35. 5, 36.. 36. 5, 37.0, 

ATB= 1.7 300 , 1. 711 32,1.73598, 1. 745 4, 1. 7 5 810,1. ”7 8070,1. 3018,1. 32537, 

1,8718, 1.98243,2.047,2. 14350, 2. 38797, 3. 10027, NTB=14, 

PPINT=10. , 20. ,30. ,35. ,36.5, NPRNTS=5, EIIM=. FALSE. SEND 


SSTART AREA=1000.,MACH=2.,T=1645. , 

CH4=P. 049768,02=0. 19907 2, N 2=0. ”75 1 1 6 , SEND 

OH H02 H 0 

C02 H202 CH3 

FINIS 

H2-02 LOW TEHFEFATURE REACTION AT CONSTANT VOLUME (ADJUSTED PATES) CASE 8 


NEW 

H2 

*02 

_ 

H 

4 HO 2 

1 . 00E+ 1 4 

0. 

67000. 

H2 

40H 

= 

H20 

4H 

2. 10E413 

0. 

5100. 

H 

402 

= 

OH 

40 

1.25E+14 

0. 

1 6 300. 

0 

4H2 

= 

OH 

4 H 

2.96E413 

0. 

9800. 

H 

402 

~ 

H02 

4M 

8.50E414 

0. 

-1000. 

H 

♦ H02 

= 

OH 

40H 

7. 00E+ 1 3 

0. 

0. 

M 

4H202 

= 

OH 

40H 

1. 17E417 

0. 

45500. 

HO 2 

4H02 

= 

H202 

402 

1.00E412 

0. 

0. 

HC2 

♦ H2 

- 

H202 

4 H 

8.50P412 

0. 

24000. 

H 

4H202 

= 

H20 

40H 

3. 18E414 

0. 

9000. 

OB 

4H202 

ss 

H20 

+ H02 

1. COE* 13 

0. 

1800. 

0 

♦ H20 

= 

OH 

4QH 

5 . 75E+ 1 3 

0. 

18000. 


TIME 

$ FROB HMIN=5.0E— 05,HMAX=» 1 , HINT 
RHOCON=. TRUE. ,TCON=. TRUE. , 
PRINT=0. 75, 1.25, 5., 10., 20., 30 
105., 120., NPRNTS= 1 6 , 

= . 15,EMAX=.0003, ALLM 1 = . FALSE. , 
CONC=. FALSE. , 

.,40. ,50., 55. ,60. ,65., 75. ,85. ,95. 
SEND 

9 


H 402 = H02 4M 

H2 

5. 02 2. 

1120 

32 

M 4H202 = OH 40H 

M 4H202 = OH +OH 

H 20 
H2 

6. 02 0.78 

2.3 

H202 

6.i 


$ ST APT MKHG=. TRUE. ,P=500. ,7=773. 15, H2=0. 86,02=0. 14, SEND 

H OH 0 H02 


FINIS 


NFS 


HIGH TEMPERATURE AIR IONIZATION 


CASE 9 


N 

*02 

= NO 

40 

6.43E*09 

1. 

6250. 

0 

*N2 

= NO 

*N 

1. 36E*14 

0. 

75400. 

N 

40 

= NO 

4M 

6 . 40E* 16 

-0.5 

0. 

0 

40 

= 02 

4M 

1. 388*18 

- 1 . 

340. 

N 

4N 

= N2 

4M 

2.80E417 

-0. 75 

0. 

NO 

40 

= N02 

4M 

9 . 40E* 1 4 

0. 

-1930. 

M 

*N20 

= N2 

*0 

5 . OOE* 1 4 

0. 

58000. 

0 

4 N2C 

= N2 

402 

6. 30E*14 

0. 

26700. 

NO* 

*E 

= N 

40 

1.45E*21 

-1.5 

0. 

0* 

4E 

= 0 

4M 

2 . OOE* 26 

-2.5 

0. 

02 

4E 

= 02- 

4M 

1 . 52E+2 1 

-1. 

1 190. 

02 

40- 

= 02- 

40 

6 . OOE* 1 2 

0. 

0. 

DISTANCE 

AREA 






J EROE 

HMIN=0. 

001, UMAX 

=0.30, 

IT PS 2= 2, C X 0=10 00. , ALLM1 = . FALSE 

• t 

HI NT= 

0.002, 

DBUG0=. 

TRUE. , 




PR INT=. 02, . 04 

, . 06 , . 08 

,.10, .30, 

1.0,2.0,4.0,10.0, NPRNTS= 1 0 

SEND 

N 

♦0 

= NO 

4K 

N20 2.25 



NO 

40 

= N02 

4M 

N2 1.55 



0* 

*F 

= 0 

4M 

N 0.01 02 

4.5 

NO 50 

0* 

4E 

= 0 

4M 

0 0.03 



02 

4E 

= 02- 

4M 

N2 .00002 




$ START P= 1. 6803, V= 47002. ,T=4820., N2=0. 7905,02=0. 20^5, *END 

NO* 0+ 0- 02- 

E 

FINIS 
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Selected Test Case Resu lts 


•• ejjili3aium $moc< calculation •• 


I'lirUL STATE 


F I MAL STATE 


FINAL/INITIAL RATIO 


PRESSURE 

(ATM) 

ve.ocity 
CM/SEC l 
density 
I ;N/CH»«3I 
TEMPERATURE 
I3EG KJ 
ENTROPY 

ICAL/GM/QEG X) 
MACM NUMBER 


0. 1227 
57375.79 
6.56092E-04 
299,90 
0.3421 
3.2645 


1.5130 
18103.11 
2 • 09595E-0 3 
1231.22 
0.3576 
0.5171 


13.1460 
0.3 1.9 
3.1961 
4.1054 
1.0451 
0.1 5 84 


GAMMA 


1.6586 


1.5731 


0,9485 


SONIC VELOCITY 17728.29 

CM/SEC) 


35315.45 


1.9751 



SPECIES 

HOLE FRACTION 

BR2 

8.12237E-D3 

3R 

3.71935E-33 

RE 

9.881606-01 


131.34058 

1.0161 


-1.0008 


CALCULATION •• 

FINAL STATE FI NAL / 1 N IT I AL RATIO 


PRESSURE 

0. 1227 

1.5017 

13.0535 

I4TM) 

VE.OCITY 

57875.78 

18410.72 

0.3181 

ICM/SEC) 

OENSITY 

5.56092E-04 

2.05248E-03 

3.1436 

< JM/CM«»3I 
TEMPERATURE 

299.90 

1245.31 

4.1 524 

I 3 EG K) 
ENTROPY 

0.3421 

0.3575 

1.0449 

ICAL/GM/OEG K) 
MACH NUMBER 

3.2646 

0.5098 

0.1562 

GAMMA 

1.6586 

1.6577 

0.9994 

SONIC VELOCITY 

17728.29 

35115.84 

2.0372 


ICM/SEC) 


SPECIES 

hole fraction 

8R2 

1.00003E-32 

9R 

3. 

XE 

9. 90003E-01 


MIXTURE MOLECULAR WEIGHT 131.58520 

01.35 VOLUME) /U (LOG T) 1.0003 

AT CONSTANT > 


01. 3C VOLUME 1/01L3G P I 
AT CONSTANT T 


■1.0003 
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BROMINE DISSOCIATION IN A SHOCK TUBE 

CASE 1 



REACTION 

R FACT ION RATE 

VAR IABL ES 



A 

( ACTIVATION 




EN- RGY 

+ BR2 

* BR ♦ BR 

5 • 9903DE+ 11 0 

.5000 3 5500.00 


M(BR2 


. 1) « J.BOOOO 

MINIMUM STEP SIZE 
INITIAL STE> SIZE 


ALL THIRD ROUY RATIOS ARE 1.3 EXSEPT THE FOLLOWING 


0.10000E-03 CM 
0. 10000E-03 CM 


INTEGRATION CDNTRDLS 

MAXIMUM STEP SIZE 0.10000E+00 CM 
MAXIMUM RELATIVE ERROR C. 00010 


THE AREA IS 
1/4REA 


ASSIGNED VARI43LE PROFILE • » 
CALCULATED FROM THE FOLLOWING FUNCTION 
» 1 - (X/ 322D0.3DD)»»( 0.50003) 


NO SPECIES WILL BE PERMANENTLY NEGLECTED FROM ALL ERROR CONSIDERATIONS 


TIME 0. SEC 


•• INITIAL CONDITIONS •• 

AREA I.U0030F+C0 SO CM AXIAL POSITION 0. CM 


FLOW PROPERTIES 

PRESSURE 1.6DI67 

(ATM) 

VELOCITY 16410.72 

(CM/SEC) 

DENSITY 2.06248E-03 

(GM/CH»»3) 

TEMPERATURE 1245.31 

COES K> 

MASS FLOW RATE 3.79718E+01 

IGM/SEC) 

ENTRDPY 0.3575 

(CAL/OM/DEG K) 

MACH NUMBER 0.509B 

GAMMA 1.6577 


integration indicators 

STEPS FROM LAST PRINT 0 

AVERAGE STEP SIZE 0. 

CONTROLLING VARIABLE 

REL4TIVE ERROR 0. 

PREDICTOR ITERATIONS 0 


CHEMICAL PROPERTIES 


SPECIES 

CONCENTRATION 
( MOLES/ CH** 3 1 

MOL r FRACTION 

BR2 

1 . 567*1 E-D7 

1.00000E-02 

BR 

0 . 

0 . 

XE 

1.551/4E-05 

9. 90000E-01 

MIXTURE 

MOLECULAR WEIGHT 

131.58520 


VARIABLE 

DtRIVATIVE 

i'tCREHHYT 

V 

-D. 53638E+03 

0. 

RHO 

0. 17342E-D4 

0 . 

T 

0. 6005 5EO 1 

0 . 


NET SPECIcS PRODUCTION RATE 
<MDLE/CM»«3/SEC) 
-3.66695E-05 
7.333896-05 

0 . 


REACTION NET REACTION CONVERSION RATE 
NUMBER I M0LE-CM*»3/GM»»2/SCC ) 

1 5 ■ 62032E+0C 


RATE CONSTANT 
(CSS UNITS) 
1. 451922+07 


TOTAL ENERGY EXCHANGE RATE 3.97332E05 
(CAL-CM»»3/GM»»2/SEC) 


MASS FRACTION SUM 0. 9999D999 


RELATIVE ERROR 

VARIABLE 

DERIVATIVE 

INCREMENT 

RELATIVE ERROR 

0 . 

BR2 

-0.9557DE-D6 

0 . 

0 . 

0 . 

JR 

0.19314E-05 

D. 

0 . 

0 . 

XE 

3. 

0 . 

0 . 
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TIME 1.036336-08 SEC «RE4 1.000336*33 


FLOW PROPERTIES 

PRESSURE 1.60169 

IATM) 

VELC1C I TY 16410.15 

(CM/SEC) 

UENSI TY 2.06250E-03 

IGM/CM»» ?■) 

TEMPERATURE 1245.32 

toes K) 

MASS PLOW RATE 3.797 406*01 

(GM/SEC) 

ENTROPY U. 3 575 

(CAL/GM/OEG K1 

MACH HUMBER 0.5098 

GAMMA 1.6577 


53 CM AXIAL POSITION 2.10OOO6-0V CM 

INTEGRATION INDICATORS 

STEPS FROM LAST PRINT 2 

AVERAGE STEP SIZE O.IOOjOE-OJ 

COHTROL LING VARIABLE 

RELATIVE ERROR 0. 

PREDICTOR ITERATIONS 0 




SPECIES 

8R2 

8R 

xe 


concentration 

I MDLES/CM**3I 
1.56742E-07 
7.96730E-13 
1.551/56-05 


MOLE FRACTION 

9.99997E-03 
5.U8305E-08 
9. >00006-31 


MIXTURE MOLECULAR HEIGHT 131 .56520 


CHEMICAL PROPERTIES 

NET SPECIES PRODUCTION RATE REACTION 

(M3L5/CM»»3/SEC) NJM3ER 

-3.657286-05 1 

7.334555-05 

0 . 


NET REACTION CONVERSION KATE 
( MOL E-CM**3/GM»» 2/SEC) 

8. 620956*0 0 


RATE CONSTANT 
(COS UNITS) 
1.4520V: *07 


TOTAL ENERGY EXCHANGE RATE 3.973526*03 
(CAL-CM»»3/3M»»2/SCC) 


MASS FRACTION SUM 0. 1999 >999 


VARIABLE 

DERIVATIVE 

INCREMENT relative errdr 

V 

-U. 492 196*34 

0 . 0 . 

RHO 

0. 14500E-33 

0 . 3. 

T 

0. 55698E+02 

0 . o. 


VARIABLE DERIVATIVE 

ARP -0.36581E-OS 

8 R 0.19316E-05 

XE 0. 


INCREMElNt 

0 . 

0 . 

0 . 


RELATIVE ERROR 

0 . 

0 . 

0 . 


TIME 2.724606-05 SEC 


AREA 1.00396EO0 SO CM 


AXIAL POSITION 5.00000E-01 CM 


FLOW PROPFR TIES 

PRESSURE 1.50526 

I ATM ) 

VELOCITY 18314.76 

(CM/SEC) 

DENSITY 2.06614S-03 

I GM/ CM** j) 

TEMPERATURE 1245.82 

I DEG K) 

MASS FLOW RATE 3.79905E+01 

IGM/SEC) 

ENTROPY 0.3575 

I CAL /CM/ DEG X) 

MACH NUMBER 0.5070 

GAMMA 1.5577 


integration indicators 

STEPS FROM LAST PRINT 14 

AVERAGE STEP SIZE 0.35700E-01 

CONTROLLING VARIABLE BR 


RELATIVE ERROR Q.10910E-05 

PREDICTOR ITERATIONS <> 


SPECIES 

CONCENTRAT [UN 

MOL 1 ' FRACTION 


( MOLES/ CM**3 ) 


BR2 

1.560166-37 

9. >35496-03 

BR 

2.005916-09 

1. 27742E-04 

XE 

1.554496-05 

9. 8993 TE-Ul 


MIXTUR: MOLECULAR HEIGHT 131.57663 


CHEMICAL PROPERTIES 


NET SRECIcS PRODUCTION RATE 
I M3lE/CM**3/SEC) 
-3.67525E-05 
7.350516-05 

0 . 

TOTAL ENERGY EXCHANGE RATE 
(CAL-CM»»3/SM»»2/SEC) 


REACTION NET REACTION CONVERSION RATE 
NUMBER ( M3L£-CM»»3/GM«t2/SEC) 

1 8.609326*00 


RATE CONSTANT 
(CGS JNI TS) 
1.460686*07 


3. 963256*05 


MASS FRACTION SUM 0. 99999 999 


VARIABLE 

V 

RHO 

T 


DERIVATIVE 
-0.11S20603 
0. 516C6E-05 
0.15 JOIL+OO 


INCREMENT 
- 0 . 79 3 70E *0 1 
0. 34386E-06 
0. 12302E-01 


RELATIVE ERROR 
0.49237E-05 
0. 12664E-06 
0.842615-07 


VARIABLE DERIVATIVE 

iR2 -0.97124E-06 

BR 0. 19425E-35 

XE 0. 


increment relative error 

0.63T06E-07 0. 701.' 5E-03 

0. 12741t-0 0.1091 05-03 

3 . 0 . 
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TIME 3.30791E-04 SEC 


til** I.D1334EOO >0 CM 


AXIAL POSITION 6.00000E+00 , *CM 


floh properties 


INTEGRATION INDICATORS 


PRESSURE 
1 ATM ) 

1.61796 

STEPS FROM LAST PRINT 

6 

VELOCITY 
I CM/ SEC ! 

17972.77 

AVERAGE STEP SIZE 

0.942o3E-C1 

DENSITY 
IGM/CM*.3) 
TEMPERATURE 
IDES K | 

MASS FLOH RATE 
IGM/SECI 

2.0B495E-03 
1243.53 
3. 79909E+01 

CONTROLLING VARIABLE 

BR 

ENTROPY 
ICAL/GM/DEG K) 

0.3576 

RELATIVE ERROR 

0. 15103E-0 6 

MACH NUMBtR 
GAMMA 

0.4977 

1.6582 

PREDICTOR ITERATIONS 

0 


CHEMICAL PROPERTIES 


BR2 

BR 

XE 


CONCENTRATION 
I MnLES/CH»*3l 
1.47046E-07 
2.Z8040E-08 
1.56964E-05 


molt fucrn« 

9.27372E-03 
1.43H17E-03 
9. 89288E-01 


MIXTURE MOLECULAR HEIGHT 


HE T SPECIES PR33UCTIDN RATE REACTION 
tMJLE/CM«»3/SEC» NUMBER 

-3.03098E-05 1 

6.061965-05 

0. 

TOTAL ENERGY EXCHANGE RATE 3.21383E*05 
<CAL-CH»»3/GM*«2/SEC) 


NET REACTION CONVERSION RATE RAT- CONSTANT 
t M0LE-CM»»3/GM»« 2 /SEC I (CGS UNITS! 

6.97257E*00 U'.2142Em07 


MASS FRACTION SUM 


0.99997997 


VARIABLE 

V 

RHO 

T 


DERIVATIVE 
-0.44277EO2 
0.27318E-35 
*0. 50310E+00 


INCREMENT 
-0.29123E+01 
0. 17969E-06 
-0.33096E-01 


RELATIVE ERROR 

0. 

0. 79355E-09 
0. 7 7559E-09 


VARt ABLE 
3R2 
3R 
XE 


DERIVATIVE 

-0.33396E-05 

0.15I77E-O5 

0. 


INCREMENT 
-0. 53203E— 07 
0.10662E-06 
- 0 . 


RELATIVE ERROR 
0.117 . IE-07 
0.15103E-06 
0. 


TIME 5. 54358E-04 SEC 


AREA 1.01794EO3 SO CM 


AXIAL POSITION 1.00000E+01 CM 


FLOH PROPERTIES 

PRESSURE 
I ATM I 
VELOCITY 
ICM/SECI 
DENSITY 
IGM/CM..j! 
TEMPERATURE 


1.62368 
ITB17.T8 
2. 09461E-03 
1291. 70 



(OEG Kl 

MASS FLOH RATE 3. 

. 79909E «-01 


(GM/SEC! 



ENTROPY 

0.357b 


(CAL/GM/DEG Kl 
MACH NUMBtR 

0.4937 


GAMMA 

1.6585 

SPECIES 

CONCENTRATION MOLE fraction 

CHEMICAL PROPE : 
NET SPEC IbS PRODUCTION RAT: 


I M0LES/CM»»3I 

IM0LE/CM.»3/SEC1 

BR2 

1. 41688E-07 8.R9115E-03 

-Z. 340D7E-05 

BR 

3.499U6E-08 2.195T2E-03 

4. 681 74E-05 

XE 

I . 57* HlE-05 9*8891 3E-UI 

0. 


INTEGRATION INDICATORS 
STEPS FROM LAST PRINT 
AVERAGE STEP SIZE 
CONTROLLING VARIABLE 


RELATIVE ERROR 
PREDICTOR ITERATIONS 


0. 94264E-0 1 
BR 


0. 1 1392E- 0 6 
0 


REACTION 

NUMBER 

1 


NET REACTION CONVERSION RATE 
( MOLE -CM«. 3/GM»« 2/SEC I 
5. 33544E*0C 


RATE CONSTANT 
(COS UNITS! 
1.3905SEA07 


MIXTURE MOLECULAR HEIGHT 


total energy exchange rate 

ICAL“CM»»3/GM»»2/SECI 


2.45924EM05 


MASS FRACTION SUM 


0. 79999 996 


VARIABLE 


RHO 

T 


(GCKP) 


derivative 
-0. 33939L 02 
0.2111 0E-05 
-0 . 39760EO0 


INCREMENT 
-0. 22321 E ♦ 0 1 
0. 13096E-O6 
-0.262.9E~0! 


RELATIVE ERROR 
0.91I37E-09 
D. 10486E-08 
0. 60523E-09 


End of this case - read oata for next case 


VARI ABLE 

BR2 

BR 

XE 


DERIVATIVE 

-0.62722E-06 

0.12544C-05 

0 . 


INCREMENT 
-0.-.1322E-07 
0.82644E-0 t 
- 0 . 


RELATIVE error 
0.140;. 7E-D7 
0.11392E-36 
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01 STANCE -ME A VERSION 


iENEAAL CHEMICAL XlMETICS PROGRAM 


NASA LEXIS RESEARCH CENTER 


M2-AIR SUPERSONIC COMBUSTION 


IST3ICNI3NETRICI CASE 2 


REACTION 

NJN3ER 

1 

2 

3 
A 

s 

4 
7 

s 


10 

11 

12 
I) 
I A 
IS 


REACTION 


H2 ♦ 3N 

H *02 

0 ♦'42 

H » 02 

H ♦ H 

M2 ♦ M32 

M ♦ H202 

M ♦ N32 

H ♦ ON 

0 *0 

0 * M20 

M2 ♦ 32 

OH ♦ H32 

0 ♦ H32 

H02 ♦ H02 


• M23 ♦ M 

• OH * 0 

• OK ♦ H 

» N02 *N 

• H2 AN 

• N202 A N 

» OH A ON 

•OH a ON 

• HZ3 AN 

• 02 AN 

• 3H A OH 

« OH A ON 

» H23 A 02 

•OH A 02 

- N202 * 32 


REACTION RATE VARIABLES 


A 

N 

ACTIVATION 

ENERGY 

2.190006*13 

0. 

5150, 00 

I.25000E* IA 

0* 

16300*00 

1 .7A000E* 13 

0. 

94*50*00 

1.590006*13 

0. 

-1000*00 

1.000006*18 

-1,0000 

0* 

9.6003DE*12 

0. 

24000-00 

1.170006*17 

0. 

45500.00 

7.300006*13 

0. 

0* 

7.500006*23 

-2 .6000 

0* 

t.38000E*lS 

-i.OOGO 

340.00 

3.730006*13 

0. 

10000*00 

1.000006*13 

0. 

43000*00 

6.3Q000E* 12 

0. 

0* 

4.000006*12 

0. 

0* 

I. 300006*12 

0, 

0* 


H(H2 
NIH20 
Ml 02 
NIH202 


ALL TNIRO BOOT RATIOS ARE 1.3 EXCEPT THE FOLLONl NO 


m 

5.00000 

HH2 

. 51 


4,00000 

NIH2 

• n - 

2.30000 


32*50000 

H( H20 

. 5) 

IB 

15.00000 

N1H23 

• 71 * 

6.00000 

m 

2.00000 

Hi 02 

. 51 

9 

2.00000 

NI 02 

* M « 

3. 78000 

m 

6*50000 

Ml N2 

> Al 

• 

2.00000 

N|N2 

• 51 « 

2.00000 


HIH2 
HIH20 
NI 02 
N1N2 


91 * A. 00000 

91 • 20.00000 

9) « 1.60000 

9) * 1.60000 


NtNIMUM STEP SUE 0.100006-03 CN 

INITIAL STE® SUE 0.100002-01 CN 


INTEGRATION CONTROLS 

MAXIMUM STEP SUE O.IOOOOEaOO CN 
NAXINUN RELATIVE ERROR 0.00010 


•• ASSIGNED VARIABLE PROFILE •• 

TH: AREA IS CALCULATED FROM THE FOLLOWING POLYNOMIAL 
AREA |CM**21 » 1 0. IX**3 A I 0 . >«a »2 ♦ t 3. 


( ;.00000E*03) 


THE FOL.ONlNG S>ECI8S HILL 3! NEGLECTED FROM ALL ERROR CONSIDERATIONS 
H02 H202 


TIME 0. SEC 


*• initial conditions •• 

AREA 2.00033E*3) S3 CN AXIAL POSITION U. 


CN 


FLQM PROPERTIES 


INTEGRATION INDICATORS 


PRESSURE 
(ATM I 

velocity 
(CM/SEC t 
OENSITY 
<GM/CNa> 3) 
TEMPERATURE 
IDES XI 

MASS FLOW RATE 
IGM/SECI 
ENTR3PY 
ICAL/GN/DEG XI 
MACH NUMBER 


0.9S600 

A5S172.99 

1.362S3E-0A 

1559.00 

1.A22T1EA05 

2.6889 

5.0373 


STEPS FROM LAST PRINT 0 

AVERAGE STEP SUE 0. 

CONTROLLING VARIABLE 


RELATIVE ERROR 0> 

PREDICTOR ITERATIONS 0 


GANNA 


1.3173 


SPECIES 

H2 

OH 

H20 

H 

02 

0 

H02 
HZ 02 
N2 


CONCENTRATION 

CN0LES/CMAA3I 

2.2I055E-06 

3. 

3. 

0. 

I.10602E-06 

3. 

3. 

0. 

A.1S65AE-06 


MOLE FRACTION 

2. 95800E-01 
0. 

0. 

0. 

l.ASOOOE-01 

0. 

0. 

0. 

5.56200E-01 


CHEMICAL PROPERTIES 


NET SPECIES PRODUCTION RATE 

REACTION 

NET REACTION CONVERSION RATE 

|N3LE/CN**3/SEC> 

NUN8ER 

C H0t.E-CH#*3/GN** 2/SEC) 

-2. 29232E-05 

l 

0* 

A. 38A59E-05 

2 

0* 

0. 

3 

0* 

5.7A7T2E-10 

A 

0* 

-2.292296-05 

5 

-1.17664E-02 

7. 751622-12 

S 

0* 

0, 

7 

0* 

0. 

8 

0. 

0. 

9 

0. 


10 

-1. 58687E-04 


11 

0. 


12 

9*385288+02 


t3 

0. 


1A 

0* 


15 

0* 


RATE CONSTANT 
(CCS UNITS! 
A.15A19E*I2 
6* A BASSE* 1 1 
8.23TA5E+11 
2. 19J73E*15 
6. A1A37EUA 
A.IA773:*09 
A.89AT3E*10 
7.000006*13 
3.7A631E«15 
7.9317SEUA 
I. 723156*1! 
9.37378£*06 
6 .«‘OOOOEaL 2 
6.000006*12 
1.800001*12 


MIXTURE MOLECULAR HEIGHT 


20.91269 TOTAL ENERGY EXCHANGE RATE 1.78t73E*0T 
(CAL-CN**3/3H**2/SECI 


HASS FRACTION SUN 1.00000000 


VARIABLE 

DERIVATIVE 

INCREMENT 

V 

0. 17T9AE*30 

0* 

RHO 

-0.61096E-10 

0. 

T 

-0.19T63E-01 

0. 

HZ 

-0.32225E-06 

0* 

OH 

0. 6AAA8E-36 

0. 

H20 

0. 

0. 


RELATIVE ERROR 
0. 

0. 

0. 

0. 

0. 

0. 


VARIABLE DERIVATIVE 

N 3.83T99E-U 

02 -0.3222AE-06 

0 0. 135976-12 

HQ2 0. 

H202 0. 

N2 0. 


INCREMENT 

I). 

0. 

0. 

0. 

0. 

0. 


RELATIVE ERR3R 
0. 

0. 

0. 

0. 

0. 

0. 



THE 


4. 39 393E-08 SE: 


ARE* 2.00000E03 SO CM 


AXIAL POSITION 


u0000c-02 CM 


FLOW PROPERTIES 


INTEGRATION INDICATORS 


PRESSURE 0* 95600 

( ATM I 

VcLOC I TY 455172,99 

ICM/ScC) 

DENSITY 1.562B3E-04 

(GW/CM** 

TEMPERATURE 1559.00 

IDES K > 

MASS FLOW RATE 1.422716*05 

t GH/ SEC I 

ENTROPY 2.5889 

rCAL/GM/UEG K) 

MACH NUMRt-R 0.0373 


GAMMA 


1.3173 


STEPS FROM LAST PRINT ? 

AVERAGE STEP SIZE 0.100 JOE— 01 

CONTROLLING VAR I ABLE 


RELATIVE ERROR 0. 

PREDICTOR ITERATIONS 0 


CH5MIC4L PROP:: R T I £ S 


species concentration 

( M0LES/CM«*3) 
H2 2.21 054E-06 

OH 1.66596E-12 

H20 3. 52772E-13 

H 3.484126-13 

02 U10602E-06 

0 4. 07899E-15 

H02 3.05904E-16 

H202 4.25296E-20 

N2 4.156546-06 


MOL E FRACTION NET 

2. 95800E-01 
2.22927E»i)7 
4. 72055E-UB 
4.o6221E-U8 
1.4800UE-01 
5.458226-10 
4.1.9340E-11 
5.69101E-15 
5. S6200E-01 


S > ? C 1 1 S P ROD JC T I UN RATE 
(MOLE/CM. *3/SEC> 

- J • 82291 £ -05 
3. 080445-05 
1.52986E-05 
l • 5Q354&-05 
-2.319106-05 
2.42475E-07 
1.32492E-06 
2.932165-12 
0. 


MIXTURE MOLECULAR WEIGHT 20.91269 TOTAL ENERGY EXCHANGE RATE 

(CAL-CM*»3/SM«*2/SEC> 


REACT I ON 
NUMBER 
1 
2 
3 

5 

6 
7 
3 
9 

10 

11 

12 

13 

14 

15 


NET REACTION CONVERSION RAT E 
(M0Lc-CM.*3/GM**2/S CJ 
5.263656*02 
1.023096*01 
3 « 04087E-0 1 
7. 47270E-O 1 
-1. 17652E-02 
1. 14834E-04 
-5.21S49E-06 
3. 033066-07 
U5367BE-06 
-1.58665E-04 
-5. 035646-04 
9. 385256*02 
5* 18801E-08 
-8. 904005-06 
-1. 408536-1 1 


RAT. CONSTANT 
(COS JNI T S > 

4.1 54195*12 
6. 48 4556*11 
3. 37446*11 
2.: 9575c *15 
6. 4 14376*14 
4. i 47726*09 
4. 494715*10 
7.000005*13 
3. 746816*15 
7. 31776*14 
1.723146*11 
9. 375755*06 

6. 1 OOOOE* 12 
6. 000006*12 
1.800005*12 


8.441476*06 MASS FRACTION SUM 0.99999999 


DERIVATIVE INCREMENT 

D.80274E-DI 0. 

-0.27562E-10 0. 

-0. 89073E-D2 0. 

-0.53741E-06 0. 

0.433D4E-06 0. 

0. 215066-06 0. 


RELATIVE ERROR 


H32 

H202 


DERIVATIVE 
0.21140E-D6 
-3. 326016-06 
0. 340B6E-08 
0.25554E-09 
0.41219E-13 
0. 


RELATIVE ERROR 

0. 

0. 

0. 

0. 

0. 

0. 



2.00000E03 S3 CM AXIAL POSITION 

INTEGRATION INDICATORS 
STEPS FROM LAST PRINT 
AVERAGE STEP SIZE 
CONTROLLING VARIABLE 


RELATIVE ERROR 
PREDICTOR ITERATIONS 


3. 04800E *00 CM 


107 

0. 28299E-D1 
OH 


0. 1 44 706- 05 


3 


CHEMICAL PROPERTIES 


H02 

H202 

N2 


CONCENTRATION 
{ M0L£S/CM*»3) 
2.192786-06 
1.164776-09 
1.243906-08 
9.234346-09 
I.097b3E-06 
2.481226-09 
3.B3507E-10 
3.09 787E-12 
4* 1 566GE-G6 


MOL 3 FRACTION 

2.93436E-01 
1 • 55B68E -04 
1. 66458E-03 
1. 2 3573E-03 
1.46B83E-01 
3. 320345-04 
5. 13204E-a5 
4. 145536-07 
5.56242E-Q1 


NET SPECIES PRODJCTION RAT = 

( mole/cm**3/se; j 
-1.512965-02 
1.008076-03 
1.061846-02 
7.790695-03 
-7. 0B0346-O3 
2 . 091 92E-03 
2. 18938E-04 
2.260625-06 
0. 


MIXTURE MDLECULA* WEIGHT 20.91425 TOTAL ENERGY EXCHANGE RATE 

ICAL-CM»*3/GM**2/$6C) 


REACTION 

NUMBER 

1 

2 

3 

5 

6 
7 
3 
9 

10 

11 

12 

13 

14 

15 


NET REACTION CONVERSION RATE 
(MDLc-CM*«3/GM**2/S c C) 

4* 34552E *05 
2 . 69666E *0 5 
1.838 18E*05 
1 • 962D3E*04 
4.346326*01 
1 • 42763E *02 
6.106966*01 

1.01491E*04 
2. 868*16*01 
1.492246*00 
-2.7O233E*01 
9.3B75BE*02 
1 . 097?4E*02 
2. 337376*02 
i . 08369E *0 1 


RATH CONSTANT 
<c;s UNITS) 
4.' 62155*12 
6. ;2401 E *1 1 
B. 66475*11 
2. ' 94935 *-15 
6.406975*14 
4. 1 8494E*09 
4.978315*10 
7. 000005*13 
3. 73559E*15 
7 • 923626*14 
1. 734736*11 
9 . 527025*06 
6.000006*12 
6.000005*12 
1. 800005*12 


-2.974385*09 MASS FRACTION SUM 0.99999987 


DlRIVATI VE 
-0. 31 3256*32 
0.107566-07 
0.3&992EO1 
-0.? 12576-33 
0.14171F-04 
0.149276-03 


INCREMENT 
-0. 348205*00 
0. 119566-09 
0. 41 12 1 E -01 
-0. 236305-05 
0. 15772E-C6 
0. 16^136-05 


RELATIVE ERROR 
0.57912E-10 
0.57935E-10 
0.197865-08 
0. 71330E-08 
0. 144706-05 
0.91B43E-06 


VARIABLE 

H 

02 

0 

H02 

H2D2 

N2 


DERIVATIVE 
0.1095 2E-03 
-0.995336-04 
3.29436E-04 
D. 337786-05 
0.3177 9E-07 
0. 


INCREMENT 
0. 121956-05 
-0. 1 1 0 8 3 £ -0 v 
0, 32741E-0 
0. 34514E-07 
0.353865-09 
- 0 . 


RELATIVE ERROR 
0. 777435-05 
0.661 2 1E-0B 
0.92O36E-05 
0 • 1 16. >86-0 3 
0.258^65-03 
0. 



AREA 2 • OOQOOE +0 3 SQ CM 


A XI at POSITION 9.144005+00 CM 


FLOW PROPERTIES 

PRESSURE 
I ATM > 

VELOCITY 
(CM/SEC) 
DENSITY 
(GM/CM**3I 
TEMPERATURE 
{ 0E3 K) 

MASS FLOW RATE 
( GM/ SCC I 
ENTROPY 
I CAL/GH/OEG K) 
MACH NUMBER 


INTEGRATION INDICATORS 
STEPS FROM LAST PRINT 


AVERAGE STEP SIZE 
CONTROLLING VARIABLE 


RELATIVE ERROR 


PREDICTOR ITERATIONS 


SPECIES CONCENTRATION MOLE FRACTION 


( MOLES/ CM*»3I 
4.875876-07 
2.510636-07 
1 • 36430E-06 
5.27396E-07 
2.I9736E-07 
1.873356-07 
2.809hl£-10 
3.958296-11 
4.21436E-06 


6. 72359E-02 
3. ^61936-02 
1. (181246-01 
7. 272336-02 
3.02997E-02 
2. 58 3196-02 
3.874216-05 
5.458145-06 
5.81123E-0I 


CHEMICAL PROPERTIES 

NET S J ECl ES PRODUCTION RATE 
( MOLE /CM** 3/S6C ) 
-1.203236-03 
3.1 17926-03 
1. 243696-02 
-2.55926E-02 
-5.355696-03 
-4. 844766-03 
-5.961335-06 
6. 622996-06 


MIXTURE MOLECULAR WEIGHT 21.34979 


TOTAL ENERGY EXCHANGE RATE 
[ CAL-CM*»3/SM» *2/SEC ) 


DERIVATIVE 
-0.760436+33 
0.268416-36 
0.10U8EO3 
-0. 169156-34 
0.438316-34 
0.174336-33 


-0. 45553E + 02 
0.160776-07 
0. 60658E +01 
-0.949336-06 
0. 43244E-05 
0.970215-35 


RELATIVE ERROR 
0.42608E-08 
0.4*2 IDE-08 
0.8960SE-07 
0.2 7636E-06 
0. 539905-05 
0. 4521 8E-06 


-0.357776-03 
-3.75289E-04 
-0. 681066-04 
-0.837986-07 
3.331345-37 


-0.21808E-04 
-0.455006-05 
-0.489126-05 
-0. 133556-3 7 
-0.43384E-08 


RELATIVE ERROR 
0 .290") 5E-36 
0.91679E-07 
0. 411706-05 
0. 79 735E-05 
0. 402 7 bE-34 


TIME 3.379756-05 SEC 


AREA 2.000006+33 SQ CM 


AXIAL POSITION 1.52400E+01 CM 


FLOW PROPERTIES 


INTEGRATION INDICATORS 


PRESSURE 
(ATM I 
VELOCITY 
l CM/ SEC) 
DENSITY 
( GM7 CM»* 3 ) 
TEMPERATURE 
(QES K» 

MASS FLOW RATE 
(GW/$EC) 
ENTROPY 
(CAL/GH/OEG K) 
MACH NUMBER 


STEPS FROM LAST PRINT 


AVERAGE STEP SIZE 


CONTROLLING VARIABLE 


RELATIVE ERROR 


PREDICTOR ITERATIONS 


;h6mical propcrths 


SPECIES CONCENTRATION 
{ MOU6S/CM**3) 
H2 4.615366-07 

OH 2.827806-07 

H20 U4ft2u05-Q6 

H 3.397646-07 

02 1*781 73E-07 

O l • 34938 E-0 7 

H02 1.37239E-10 

H2U2 1.344i9E-U 

N2 4.239936-06 


MOLE FRACTION NET SPECIES PRODUCTION RATE 
imjle/:m**3/s=C) 

6.482876-02 -2.108965-03 
3.972006-32 2.82552E-04 
2.08166E-01 5.717896-03 
4.77242E-02 -7. 49735= -03 
2 • 502666-02 -1.8S3735-03 
l . c*9608E-02 -2.28539E-03 
1.927706-05 -4.431526-06 
1* 483376-Q6 6.356603-07 
5.95553E-01 0. 


REACTION NET REACTION CONVERSION RATE 
NUMBER (MQLE-CM**3/GM**2/SEC) 

1 1. 101645+05 

2 -3. 793205+04 

3 2.66026E+04 

4 1.25122E+05 

5 5. 356035+04 

5 -2.332145+02 

7 -2.591435+02 

3 l. 135565+05 

9 1.23674F+05 

10 2.285745+03 

11 1.695165+04 

12 I. 096986+01 

13 8.102595+03 

14 3.868406+03 

15 1.049865+00 


RATE CONSTANT 

(Cos uni rs) 

8.423185+12 
6.074535+12 
3.013726+12 
1. 1414= +15 
3.686865+14 
1. U800E + U 
2. 523285+13 
7.00000E+I3 
8. 791 IE +14 
4. 776836 + 14 
2.038425+12 
3. 429415+09 
6. *00006 + 12 
6. 000006+12 
1.800005+12 


MIXTURE MOLECULAR WEIGHT 22.39232 


TOTAL ENERGY 5 XCHANG6 RATE 
ICAL-CM**3/GM»*Z/S6C> 


MASS FRACTION SUM 


DERIVATIVE 
-0 . 2oO 785 +03 
0.931635-07 
0.3637 1E+02 
-0.29647E-04 
0. 39720E-05 
0.903806-34 


INCREMENT 
-0. 146156+02 
0.322126-08 
0. 203906+01 
-0. 165505-05 
0.401666-06 
0.44234E-05 


RELATIVE ERROR 
0.267366-09 
0.265906-09 
0.473435-00 
0.159516-07 
0.361715-06 
0.305786-07 


DERIVATIVE 
-0.135406-03 
-0.250535-04 
-3.32127E-04 
-0. 622976-07 
0. 95 388E-08 


INCREMENT 
-0. r » 9 3 30 E-0 5 
-0. 146406-05 
-0. 18870E-0 
-0* **54 896 -00 
-0.452435-39 
- 0 . 


RELATIVE ERROR 
0.93 53 IE -08 
0.1398 LE -07 
0.36156E-06 
0.149526-05 
0. 259 13E-35 
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TIME 1.T39T8E-D4 SEC 


AREA 2.00000E03 SO CM 


AXIAL POSITION 7.620006*01 CM 


FLO* PROPERTIES 


I NTEGRATION INDICATORS 


PRESSURE 
I ATM! 

VELOC I TV 
(CM/SEC) 
DENSITY 
IGMfCH*»31 
TEMPERATURE 
IDES K) 

MASS FLOW RATE 
(GM/SECI 
ENTROPY 
ICAL/GM/OEG XI 
MACH NUMBER 


1.73451 
444082.15 
1.6018SE-04 
3016. 50 
1.42270E*05 
2.8125 
3.7820 


STEPS FROM LAST PRINT 
AVERAGE STEP SIZE 
CONTROLLING VARIABLE 


154 

0. 99454E-01 
0 


RELATIVE ERRDR 0.38108E-08 

PREDICTOR ITERATIONS 0 


GAMMA 


1.2566 


CHEMICAL PROPERTIES 


SPECIES 

CONCENTRATION MOLE FRACTION NET SPECIES PRODUCTION 

RATE 

REACTION NET REACTION CONVERSION RATE RATE CONSTANT 


t M0LES/CM*»3) 


I MOLE /CM** 3 /SEC 1 


NUMBER (HDLE-CM*»3/GH««2/SEC> 

(CGS UNITS! 

H2 

4. 106096-07 

5. 859586-02 

-2. 185T9E-06 


1 

9.31925E*Dl 

9.27512EH2 

OH 

2.81530E-07 

4. 01757E-02 

1. 661 57E-07 


2 

3.704336*00 

6.2404BE*12 

H20 

1.60785E-06 

2. 29448E-01 

4. 1 6942E-06 


3 

2.79116E+01 

3.59653E *12 

H 

2. 129316-07 

3. 03863E-02 

-4.13040E-06 


4 

5.00161E+01 

1.878668*15 

02 

1.43573E-07 

2. 04886E-02 

-1.17052E-06 


S 

3.59676E+01 

3.315108*14 

0 

9.D6080E-0B 

1. 29302E-02 

-1.98892E-0S 


5 

-5. 2540BE-02 

1.751618*11 

H02 

5. 435396-11 

7. 75656E-06 

-2. 60086E-09 


7 

-4.433116-02 

5.91081EH13 

H202 

5 .8 1929E-12 

8.30440E-07 

-2.051 64E -10 


8 

4.3643BE+01 

7. QOOOOE*13 

N2 

4,260326-06 

6. 07967E-01 

0. 


i 

1.12T24E*02 

6.735228*14 






10 

1. 678116*00 

4. 32257E*14 






li 

4, 835846*01 

2.854588*12 






12 

1.01874E-01 

7.666376*09 






13 

4.934366*00 

6.000008*12 






14 

1.59150E+00 

6.00000E*12 






15 

2. 13951E-04 

1. 800008*12 

MIXTURE 

MOLECULAR HEIGHT 

22.85909 

TOTAL ENERGY EXCHANGE 

RATE 

-2.2333DE+0T MASS FRACTION SUM 

0.99999628 




ICAL-CM»»3/GM*«2/SECJ 




VARIABLE 

DERIVATIVE 

INCREMENT 

RELATIVE ERROR 

VARIABLE DERIVATIVE 

INCREMENT 

RELATIVE ERROR 

V 

—0. 16405EO0 

-0.26850E-02 

0.18275E-11 

rl 

-3. 5B064E-OT 

-0.90943E-09 

0 .2301 OE-09 

RHO 

0.59176E-10 

0.96849E-12 

0.18275E-11 

02 

-0. 1S455E— 07 

-0. 29543E-09 

0. 5 6 0 9 58 -09 

T 

0.23901E-01 

0.38975E-03 

0.31101E-10 

0 

-0.27950E-07 

-0. 32803E-09 

0.381088-08 

H2 

-0. 3072TE-3 7 

-0.54917E-09 

0. 31654E-09 

H02 

-0.36562E-10 

-0. 41856E-12 

0. 32376E-08 

OH 

O.23358E-08 

-0. 16866E-09 

0.20594E-08 

H202 

-D.2B841E-11 

— 0.48362E— 13 

0. 10198E-07 

H20 

0. 5861 3E-07 

0.10885E-08 

0.24588E-09 

N2 

Q. 

-0. 

0. 


END OF THIS CASE - READ DATA FOR NEXT CASE 


84 



oistance-area version 

H2-AIR SUPERSONIC 


GENERAL CHEMICAL <1 'Ac r 1 1 S PROGRAM NASA LEWIS RESEARCH CERTS! 

COMBUSTION (COMPLETE HECHANl SH - PREFERRED RATES I CASE 3 


REACTION REACTION 

NJM3ER 


1 

2 

3 


5 

5 

T 

3 

3 

13 

11 

u 

13 

IA 

IS 

13 

IT 

13 


H2 ♦ 3N 

H » 02 

0 ♦ H2 

H + 02 

H ♦ H 

H2 ♦ H32 

M ♦ H232 

H ♦ H02 

H ♦ ON 

Q *0 

0 ♦ H23 

H2 ♦ 02 

OM ♦ H02 

0 ♦ H02 

HO 2 ♦ H32 

OH ♦ H202 

0 ♦ H202 

H ♦ H202 


- H23 * H 

« OH *0 

• OH * H 

» H02 ♦ H 

• H2 ♦ M 

• H202 ♦ H 

•OH * OH 

•OH ♦ OH 

• H23 ♦ H 

• 02 + N 

• OH » OH 

•OH ♦ OH 

• H20 ♦ 02 

■ OH *02 

■ H202 ♦ 02 

- H20 ♦ H02 

• OH ♦ H02 

- H20 ♦ OH 


REACTION 

A 

*ATE VARIABLES 
N A 

STIVATI3N 

2.100006*13 

C. 

enessy 

5100.00 

1.250006*14 

0. 

16300.00 

2.95000E+ 13 

0* 

9800.00 

1.59000E+15 

0, 

-icoo.oo 

l.OOOOOE* 18 

-1,0000 

0. 

9.60000E+ 12 

. 0, 

2*000.00 

1.170006*17 

0. 

*5500.00 

7.00000E+13 

0* 

0. 

7.50000E+23 

-2.6000 

0. 

1.380006*18 

-1.0000 

3*0.00 

5.75000E+13 

0. 

18000.00 

l.OOOOOE* 13 

0. 

*3000.00 

6.30000E+12 

0. 

0. 

6.00000E+ 12 

0. 

0. 

1.80000E+ 12 

0. 

0. 

1.000006*13 

0. 

l a oo. oo 

3.00000E+ 13 

0. 

1000,00 

3.1B000E+14 

0. 

9000.00 


HIH2 
MIH20 
HI 02 
HIH202 


4) • 5.00000 
4) • 32.50000 
41 • 2.00000 
71 • 6.50000 


ALL THIRD BODY RATIOS ARE 1.0 EXCEPT THE FOLLOWING 


HI H2 . 51 * 
HIH20 . 5) - 
HI02 • 5 1 • 
HIN2 • 41 • 


5.00000 HI H2 

5.00000 MIHZO 

2.00000 HIOZ 

2.00000 HI N2 


, 7) - 2.30000 
, Tl - 6.00000 
t T) • 0.73000 
, 51 • 2.00000 


HIH2 

H1H20 

HI02 

HIN2 


0) > 4.00000 
9 1 • 20.00000 
9) • 1.60000 
9) • I. 60000 


HINIHUH STEP SIZE 0.10000E-03 CH 

INITIAL STEP SIZE 0.10000E-01 CH 


INTEGRATION CONTROLS 

MAXIMUM STEP SIZE 0.10000E+00 CH 
HAXIHUN RELATIVE ERROR 0.00010 


AREA ICH»2> 


•• ASSIGNED VARIABLE 
THE AREA IS CALCULATED FROH THE 
| 0. > X**3 ♦ I 0. 


PROFILE •» 

FOLLOWING POLYNOHI AL 
JX*»2 <■ I 0. 


)X ♦ I 2.00000E+03) 


THE FOLLOWING SPECIES WILL BE NESLECTEO FROH ALL ERROR CONSIDERATIONS 
H202 H02 


TIKE 0. SEC 


•• INITIAL CONDITIONS •• 

AREA 2.003036*33 SO CH AXIAL POSITION 0. 


CM 


FLOW PROPERTIES 


INTEGRATION INDICATORS 


PRESSURE 
IATHI 
VELOCITY 
ICH/SECI 
DENSITY 
( GH/ CH** 31 
TEMPERATURE 
IDES K I 

HASS FLOW RATE 
IGH/SEC1 
ENTROPY 
(CAL/GN/DEG X> 
HACH NUMBER 


0.95600 
455172.99 
1.562B3E-04 
1559.00 
1.42272E+05 
2.6839 
5. 0373 


STEPS FROH LAST PRINT 0 

AVERAGE STEP SIZE 0. 

CONTROLLING VARIABLE 

RELATIVE ERROR 0. 

PREDICTOR ITERATIONS 0 


GAHHA 


1.3173 


SPECIES 

H2 

OH 

H20 

H 

02 

0 

HO 2 

H202 

N2 


CHEMICAL PROPERTIES 


; ONCENTRAT ION 

HOLfc FRACTION 

NET S»ECI£S PRODUCTION RATE 

REACTION 

NET REACTION CONVERSION RATE 

mOLES/CH**31 


IHOLE/CM** 3/SEC 1 

NUN86R 

I MDL6-CM*»3/GM**2 /SEC) 

2.210556-06 

2*958006-01 

-2. 292336-05 

l 

0. 

3. 

0. 

4.584596-05 

2 

0. 

3. 

0* 

0. 

3 

0. 

3* 

0. 

5.74773E-10 

* 

0 . 

1.106026-06 

1**80006-01 

-2.292306-05 

5 

-1*1766*6-02 

3* 

0* 

7. 75164E-12 

6 

0. 

0. 

0* 

0. 

7 

0* 

3. 

0* 

0. 

8 

0* 

*.156556-06 

5.562006-01 

0 . 

9 

10 

0* 

-1.586876-0* 




tl 

0. 




12 

9. 385286+02 




13 

0. 




l* 

0. 




15 

0* 




15 

0. 




17 

0. 




18 

0. 


RATE CONSTANT 
(CCS UNITS) 
4. 048293*12 
5. 484566»ll 
1.251616*12 
2. L 95756*15 
6.414376*14 
4.1 47736*09 
4. 89473E+10 
7. 00006*13 
3. 746316*15 
7. 931766*14 
1.723156*11 
9.375786*06 
6.- 00006+12 
6.000006*12 
1.300006*12 
5.593276*12 
5.793016+13 
1.740826+13 
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V 


MIXTURE 

MOLECULAR kEIGHT 

20.91269 

TOTAL ENERGY EXCHANGE 
( CAL-CM++3/GM++2/SE 

RATE 1. 

Cl 

781 73E+07 MASS 

FRACTION SUM 

1.00000000 

VARIABl E 

Derivative 

INCREMENT 

RELATIVE ERROR 

VARI4BLE 

DERIVATIVE 

INCREMENT 

RFLAT1VE ERROR 

V 

0. I7794E+30 

0 . 

0 . 

H 

3. 8D799E-11 

0 . 

0 . 

RHO 

-D.61096E-10 

0 . 

0 . 

02 

-0. 32 224E-D6 

0 . 

0 . 

T 

-0. I9763E-0 1 

0 . 

0 . 

0 

0.13B97E-12 

0 . 

0 . 

H2 

-0.32225E-06 

0 . 

0 . 

H02 

0 . 

0 . 

0 . 

OH 

0. 64448E-06 

0 . 

0 . 

H20? 

3. 

0 . 

0 . 

H20 

0 . 

0 . 

0 . 

N2 

0 . 

0 . 

0 . 


TIME 4.39393E-08 SEC 


AREA 2.00033E+33 30 CM 


AXIAL POSITION 2.00000E-02 CM 


FLOW PROPERTIES 


I NTEGRATI ON INDICATORS 


PRESSURE 

(ATM) 

VELOCITY 
(CM/SEC) 
DENSITY 
1 GM/CH++ 31 
TEMPERATURE 
(DEG K I 

MASS FLOW RATE 
(GM/SEC) 
ENTR3PY 
(CAL/GM/OEG K) 
MACH NUMBER 


0.95600 

455172.99 

1.56283E-04 

1559.00 

1.42272E+05 

2.6BB9 

5.0373 


STEPS FROM LAST PRINT 
AVERAGE STEP SIZE 
CONTROLLING VARIABLE 


2 

0. 10000E-01 


RELATIVE ERROR 0. 

PREDICTOR ITERATIONS 0 


GAMMA 


1.3173 


CHEMICAL PROPERTIES 


SPECIES CONCENTRATION MOLE FRACTION NET SPECIES PRODUCTION RATE REACTION NET REACTION CONVERSION RATE RATE CONSTANT 



( MQLES/CH++3 ) 


I MOLE/CM** 3/SEC) 

NUMBER 

(M0LE-CM«*3/GM**2/SrC) 

(CGS UNITS) 

H2 

2. 21055E-06 

2.95800E-01 

-3.79121E-05 

1 

6. 13243E+02 

4.04829E + 12 

OH 

1.67373E-12 

2 • 23967E-07 

3. 11229E-05 

2 

1.00060E+01 

6. 48455E«-11 

H20 

3.44962E— 13 

4.61604E-08 

1.49781E-05 

3 

4.4561 IE— 01 

1.251615+12 

H 

3.40755E-13 

4. 55974E-08 

1.472T35-05 

4 

7. 33B55E-01 

2.1 9575E+15 

02 

1.10602E-06 

1. 48000E-01 

-2.31851E-05 

5 

-1. 17662E-02 

6.41437E+14 

0 

3.93400E-15 

5. 26420E-10 

2.33527E-07 

6 

1. 12265E-04 

4. 147725+09 

H02 

2.99059E-16 

4.00180E-11 

1.78481E-08 

7 

-5. 29193E-06 

4. 19471E + 10 

H202 

4.16101E-20 

5.56797E-15 

2.871345-12 

3 

2. 89887E-07 

7.0 00005 + 13 

N2 

4.15655E-06 

5. 56200E-01 

0 . 

9 

1.51 001E-06 

3.74681E+15 





10 

-1. 58665E-04 

7 . 93177E+1 4 





11 

-5.08292E-04 

1. 72314E+11 





12 

9. 33524E + 02 

9, 3 75755+06 





13 

5. 12724E-0 8 

6. OOOOOE+12 





14 

-8 • 94554E-06 

6.000005+12 





15 

-1 • 39358E-1 1 

1.80000E+12 





16 

1. 29632E-1 1 

5.593255+12 





17 

-3. 85823E-09 

5. 79301E+13 





IB 

1 . 00917E-1 1 

1. 74082E+13 

MIXTURE 

MOLECULAR WEIGHT 

20.91269 

TOTAL ENERGY EXCHANGE RATE 

8.63B34E+05 

MASS FRACTION SUM 

0. 99999999 




( CAL-CH»»3/GM»»2/SEC) 





VARIABLE 

DERIVATIVE 

INCREMENT 

RELATIVE ERROR 

VARIABLE 

DERIVATIVE 

INCREMENT 

RELATIVE ERROR 

V 

0. B2322E-01 

0 . 

0 . 

H 

3 . 207D3E-06 

0 . 

0 . 

RHO 

-3. 28265E-1 0 

0 . 

0 . 

02 

-0.32593E-06 

0 . 

0 . 

T 

-0.91349E-02 

0 . 

0 . 

0 

0.32523E-08 

0 . 

0 . 

H2 

-0.53295E-36 

0 . 

0 . 

H02 

3.25D9DE-09 

0 . 

0 . 

OH 

0. 43751 E-36 

0 . 

0 . 

H202 

0.40354E-13 

0 . 

0 . 

H20 

0. 21056E-06 

0 . 

0 . 

N2 

0 . 

0 . 

0 . 


TIME 6. 69641 E-06 SEC 


AREA 2. 00000;*03 SO CM 


AXIAL POSITION 3.D4800E + 00 CM 


FLOW PROPERTIES 


PRESSURE 

(ATM) 

VEL3C ITY 
(CM/ SEC) 
DENSITY 
l GM/CM++3) 

T FMPERATURE 
( DEG K) 

M4SS FLOW RATE 
(GM/SEC) 
ENTROPY 
t CAL/GM/OEG X) 
MACH NUMBER 


0.95774 

455146.02 

1.56291E-04 

1561.92 

1.42271E+05 

2.6924 

5.0329 


GAMMA 


1.3172 


INTEGRATION INDICATORS 
STEPS FROM LAST PRINT 
AVERAGE STEP SIZE 
CONTROLLING VARIABLE 


110 

0.27527E-01 

OH 


RELATIVE ERROR 0.I1939E-06 

PREDICTOR ITERATIONS 3 
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C 3NCENTRAT I ON 
( MOLES/CM**3 ) 


MOLF FRACTION 


H2 

2.18292E-06 

2.92 120E-01 

OH 

2.00884E-09 

2.69824E-04 

H20 

1.902296-08 

2. 54566E-03 

H 

1.49453E-08 

2. 00000E-03 

02 

1.09362E-06 

l.*6348E-0l 

0 

2.90831E-09 

3. e3259£-34 

H02 

4.90608E-10 

6.56535E-05 

H202 

3.46205E-12 

4* 632956-07 

N2 

4.1567TE-06 

5.5S262E-31 


MIXTURE MOLECULAR WEIGHT 


CHEMICAL PROPER! I : S 

MET SPECIES PRODUCTION RATE 
(MQLE/CM..3/S5C) 
-2.57539E-02 
1.9064IE-03 
1.77848E-02 
1.37794E-02 
-1.144026-02 
2.688726-03 
2.48277E-04 
1.994525-06 


VARIABLE 

V 

RHO 

T 

H2 

OH 

H20 


DERIVATIVE 
-0.562516*02 
0. 193166-07 
0.66077E+01 
-0. 362046-33 
0. 268006-04 
0. 25OO1E-03 


TOTAL ENERGY EXCHANGE RATE 
ical-:m»*3/gr»»2/se:> 


REACTION NET REACTION CONVERSION RATE RATE CONSTANT 


INCREMENT 
-0. 10022E *01 
0.34414E-09 
0.117736*00 
-0.646875-35 
0. 47867E-06 
0.44661E-05 


RELATIVE ERR3R 
0.O6130E-11 
0.86155E-11 
0.29332E-09 
0. 1222QE-08 
0.11939E-06 
0.99981E-07 


32 

a 

H32 

H202 

N2 


MBER 

(«OLE 

-CM»*3/GM*»2/SEC) 

ICGS UNITS) 

1 


7. 273826 *-0 5 

4.060776+12 

2 


4. 36048E+05 

6. 548(^96 + 11 

3 


3.25943E+05 

1,2 5904E+12 

4 


3. 196886*04 

2. 194436+15 

5 


1 * 271 5 IE HO 2 

6 . 40237E + 14 

6 


1.S2151E+02 

4.208275*09 

7 


6. 360956*01 

5.031076+10 

3 


2. 10123c *0 4 

7. > 00006 + 13 

9 


8. Q3501F+0 l 

3. 72861E+15 

10 


2 . 04949E +00 

7 .918556+14 

11 


-3. 3T857EH02 

1.74198E+11 

12 


9. 433876+02 

9. 62240E+06 

13 


2. 42077E+02 

6. QCOOOE+12 

14 


3. 50523E+02 

6.UOOOOE+12 

15 


1.773496+01 

1.80000E+12 

16 


1. 31867E+00 

5.59935E+12 

17 


1 . 62305E+0 1 

5.79651E+13 

18 


3. 70753E+01 

1.75031E+13 

)4707E*39 MASS FRACTION SUM 

0.99999985 


DERIVATIVE 

INCREMENT 

RELATIVE ERROR 


0. 19371E-03 

0.34619E-05 

0. 89522E-07 

-0. 153326-33 

-0.28740E-05 

0. 1074 16-08 


0.3779 7E-04 

0.5751 5E-06 

0. 1 Q349E-04 


3. 349326-05 

0. 63505 E-07 

0.95581E-07 


0. 2B03BE-07 

0. 50472E-0 > 

0.47 3226-07 


0. 

-0. 

0. 


2.01847E-05 SEC 


AREA 2.00033E03 SO CM 


AXIAL POSITION 9.14400E+00 CM 


FLOW PROPERTIES 


INTEGRATION INDICATORS 


PRESSURE 
1 ATM.) 

VELOCITY 
tCM/sec) 
DENSITY 
(GM/CM»»3) 
TEMPERATURE 
(DEG Kl 

MASS FLOW RATE 
(GK/SEC) 
ENTROPY 
ICAL/GM/DEG K) 
MACH NUMBER 


1.42431 
448502 • 09 
1.58607E-04 
2400.17 
i . 42271E *05 
2.8019 
A. I 598 


STEPS FROM LAST PRINT 
AVERAGE STEP SIZE 
CONTROLLING VARIABLE 


16 

0. 954466-01 
OH 


RELATIVE ERROR 0.90493E-05 

PREDICTOR ITERATIONS 0 


GAMMA 


1.2776 


CHEMICAL PROPERTIES 


SPECIES 

CONCENTRATION MOLE FRACTION NET SPECIES PRODUCTION RATE REACTION NET REACTION CONVERSION RATE RATE CONSTANT 

t MOt FS/rM*»3) <H3LE/CM»»3/SEC ) NUMBER 1 MOLE-CM •*3/GM»« 2 /S C) UGSUMITSI 

H2 

4.361386—07 

6. 72 1746-02 

-1.803666-03 

1 


1.70376E + 05' 

7. 208326+12 

OH 

2.579626-07 

3.56701E-02 

2.73791E-03 

2 


-1. 50387E+05 

4.099205*12 

H20 

1.38016E-06 

1.908436-01 

1.185716-02 

3 


3.61541E+04 

3. 792666*12 

H 

4. 960326-07 

6. 858976-02 

-2.28401E-02 

4 


3.77213E+05 

1.96089E*15 

02 

2.132716-07 

2.94904E-02 

-4.89243E-03 

5 


1. 33854E+05 

4.166376*14 

0 

1 • 79694b— 07 

2.48475E -02 

—4. 79550E-03 

6 


-9.48364E+02 

6.265125*10 

H02 

2.65377E-10 

3.65954E-05 

-9*969356-06 

T 


-3.622 136+04 

8. 41671 £ *1 2 

H202 

2.6 1287E-1 1 

3.612996-06 

2. 64567E-0S 

8 


3. 61622E+05 

7. 00006*13 

N2 

4.21836E-06 

5.83301E-01 

0. 

9 

10 

11 

12 

13 

14 

15 
15 
17 
IS 


2. 32610E +05 
4. 957566+03 
-2.61095E+04 
— 2 . 981 76E+01 
1. 61218E+Q4 
1. 12300E+04 
4. 786826+00 
1.37441E+03 
9* 051 84E+03 
2 . 47463E+04 

1.220206*15 
5.35399E+14 
1.320276*12 
1 . 21506E *09 
6.0 00005 *1 2 
6.00000E + 12 
1.800006*12 
6.856456*12 
6-48685E*l 3 
4. 81863E *13 

MIXTURE 

MOLECULAR WEIGHT 

21.93167 

TOTAL ENERGY EXCHANGE 
(CAL-CM»»3/3M»»2/SE 

RATE -8. 486806+10 MASS FRACTION SUM 

C) 

0.99999823 

VARIABLE DERIVATIVE 

INCREMENT 

RELATIVE ERROR 

VARI A8LE 

DERIVATIVE 

INCREMENT 

RELATIVE 6RR3R 

v 

-0.69424E+33 

-0. 18836E+02 

0.68506E-08 

H 

-3, 32138E-03 

-0.87540E-03 

0.161 48E-07 

RHO 

0. 24551E-36 

0. 66608E-08 

0. 68305E-0B 

32 

-3.69T7SE-04 

-0. 187146-05 

0.83782E-07 

T 

0. 93029E+02 

0. 25250E+O1 

0.14126E— 06 

3 

-0.6741 3E-04 

-0. 193376-0 

0. 668606-05 

H2 

-0.25355E-04 

-0. 67878E-06 

0.2o874E-07 

H02 

-3.1431 5E-06 

-0. 5440 5E-06 

0.206106-04 

OH 

0. 38489E-34 

0.135866-05 

0. 904936-05 

H202 

3.3T192E-07 

-0.43652E-09 

0.89702E-34 

H20 

0. I6668E-03 

0.43796E-05 

0.83545E-06 

N2 

0. 

-0. 

0. 
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TIME 


3.3B210E-05 SEI 


AREA 2.00003E03 


S Q CM 


AXIAL POSITION i.52400E*01 CM 


FLOW PROPERTIES 


PRESSURE 

(ATM) 

veld: ITY 
< CM/ SEC ) 
DENSITY 
<GM/CM**3) 
TEMPERATURE 
IDES K ) 

MASS FLOW RATE 
IGM/SFC) 
ENTROPY 

ICAL/GM/OEG K| 
MACH NUMBER 


1 • 59491E-04 


1. 42271E+05 


GAMMA 


INTEGRATION INDICATORS 
STEPS FROM LAST PRINT 
AVERAGE STEP SIZE 
CONTROLLING VARIABLE 


32 

0*975 9BE-01 
0 


RELATIVE ERROR 0.92294E-06 

PREDICTOR ITERATIONS 0 


CHEMICAL PROPERTIES 


SPECIES CONCENTRATION 
{ MOLES/ CM**3 I 
H2 4. 5 7074E-O7 

OH 2.83830E-07 

H20 l .492686-06 

H 3.26767E-07 

02 1.74968E-07 

0 l. 307296-07 

H02 1.27956E-10 

H202 1. 179196-11 

N2 4.241086-06 


MOLE FRACTION NET 

6.44069E-02 
3.99263E-02 
2. 09974E-01 
4a 5966 IE-02 
2.4612&E-02 
1.83896E-02 
1, 79995E-05 
la 65B7 7E -06 
5a 96703E-01 


SPECIES PRODUCTION RATE 
< MOLE/CM. *3/S = C) 
-2.07838E-03 
2.13917E-04 
5.38597E-03 
-6 • 824465 -03 
-1 • 72021E-O3 
-2.15036E-03 
-4.47034E-06 
“7a 8 951 4E -08 
0. 


MIXTURE MOLECULAR HEIGHT 22.4355b TOTAL ENERGY EXCHANGE RATE 

(CAl-CM*»3/SM*«2/SEC) 


REACTION 

NUMBER 

1 

2 

3 


6 

7 

9 

9 

10 

11 

12 

13 

14 

15 
IS 
17 
IB 


NET REACTION CONVERSION RATE 
t MOLE “CM«*3/GM*« 2/SEC ) 
9.46607E*04 
-2.69099E*04 
3.531886*04 
1. 073466*0 5 
4. 81214E *04 
-1 # 664176*02 
-1. 049636*04 
9.0B448E*O4 
l « 14145E+05 
2.073246*03 
1 • 32222E*04 
1.3S369E+01 
7.360476*03 
3. 390606*03 
8.94259E-01 
3* 62036E+02 
1.547086*03 
8. 42682E*03 


RATE CONSTANT 
(CSS UNITS! 
8* ? 3339: *12 
6.26981 5*12 
4.89670E*12 
1* 91043* *15 
3.448306*14 
1.171306*11 
2* 756226*13 
7.000005*13 
8.63964E*14 
4,729996*14 
2.110896*12 
3.727886*09 
6. 0CG00E*12 
6, OOOOOE*12 
1.800006*12 
7*1 B588E*I2 
6* 65820E *13 
6*092936*13 


-3.115996*10 NASS FRACTION SUM 0*99999766 


VARIABLE 

V 

RHO 

T 

H2 

OH 

H20 


DERIVATIVE 

-0.24056E03 

0.860226-07 

0*336796*02 

-0.292176-04 

0.30072E“05 

0.75714E-04 


INCREMENT 
“0, 55724E*D1 
0. 19926E- 06 
0.760246*00 
-0.67592E-06 
0. 927116-07 
0. 17433E“05 


RELATIVE ERROR 
0* 613306-09 
0.61215E-09 
0.10550E-07 
0.14283E“07 
0. 895736“06 
0.037566-07 


H02 

H202 


DERIVATIVE 
“0* 95936E-04 
-0. 2419 2E-04 
-0.302296-04 
-0. 628426-07 
“0. LI 099E-08 
0. 


INCREMENT 
“‘0*222566-05 
-0.56051E-06 
-0.711506-06 
-0*161 60E-08 
-0* 12505E-09 
-0* 


RELATIVE ERROR 
0.490 196-07 
0. 194666-07 
0* 92294E-0S 
0*5898 9E-05 
0,101586-04 
0. 


TIME 1*710136-04 SEC 


AREA 2»OOOOOE*Q3 SO CM 


AXIAL POSITION 7.620006*01 CM 


FLOW PROPERTIES 


PRESSURE 
(ATM ) 

VELOCITY 
(CM/SEU 
DENSI TY 
(GM/CM**3) 
TEMPERATURE 
(DEG K» 

MASS FLOW RATE 
(GM/SEC* 
ENTROPY 
(CAL/GM/DEG XI 
MACH NUMBER 


1.73453 

444081.73 

1.601856-04 

3016.56 

1.422706*05 

2.8125 

3.7820 


GAMMA 


1.2566 


INTEGRATION INDICATORS 

STEPS FROM LAST PRINT 153 

AVERAGE STEP SIZE 0.99890E-01 

CONTROLLING VARIABLE OH 


RELATIVE ERROR 0.29650E-07 

PREDICTOR ITERATIONS 0 


H02 

H202 


C 3NCENTRAT10N 
(M0LES/CM#*3) 
4* 10598E-07 
2.81528E-07 
1.607886-06 
2.12911 E-07 
1 .435678-07 
9.06003E-08 
5.434426-11 
>.818236-12 
4.260326-06 


MOLE FRACTION 

5.859436-02 
4. 01 754E-02 
2. 29452E-01 
3.038346*02 
2.04877E-02 
1.29291E-02 
7. 7551 9E-06 
8.302976-07 
6. 079696-01 


MIXTURE MOLECULAR WEIGHT 


22.65910 


CHEMICAL PROPERTIES 


IT SPECIES PRODUCTION RATE 

REACTION Hz 

T REACTION CONVERSION RATE 

RATE CONSTANT 

(M3LE/CM**3/SEC! 

NUMBER 

( MOL E -CM **3/ GM** 2 /SEC ) 

1 CGS UNITS) 

-2.12821E-06 

l 

7.90X07E*01 

8.968596*12 

-4.33575E-07 

2 

4.47305E*00 

8.240896*12 

3.636555-06 

3 

2.98453E*01 

5.77140EU2 

-2.57415F-0S 

4 

3* 56666E*0 1 

1.87866E*15 

-8.79546E-07 

5 

2.59496E*01 

3* 31504E ♦ 14 

-1.43077E-06 

6 

-3.41970E-02 

1* 751 74E*1 1 

-4.15758E-09 

7 

-4. 558986*00 

5. 91164E*13 

-2* 399126-09 

B 

3.156636*01 

7.000005*13 

0. 

9 

8.134306*01 

6.7 3490E*I4 


*10 

1.210366*00 

4* 32249E* 14 


n 

2.64995E*01 

2. 85474E*12 


12 

6. 92817E-02 

7. 66738E *09 


13 

3 • 56952E*00 

6.000006*12 


14 

1.150906*00 

6.000006*12 


15 

i* 59863E-04 

1.800008*12 


16 

1.06969E-01 

7.40611E+12 


17 

3.1U51E-01 

6. 770805*13 


IB 

4. 19431E*00 

7.085606*13 

TOTAL ENERGY EXCHANGE RATE 
CCAL-CM*#3/GM**2/SEC» 

-1.6B967E*07 

MASS FRACTION SUM 0. 

.99999625 


VARIABLE 

V 

RHO 

T 

H2 

OH 

H20 


DERIVATIVE 
-0.124596*00 
0.449426-10 
0.18065E-D1 
-0. 29918E-07 
-0.60951E-08 
0*5112 2 E-0 7 


INCREMENT 
-0.103256-01 
0.37242E-11 
0. 150065-02 
-0. 1 96128-08 
-O.43025E-O9 
0. 399706-08 


RELATIVE ERROR 
0.28319E-10 
0.283196-10 
0.48202E-09 
0. 27038E-09 
0.29650E-07 
0. 212525-08 


H02 

N202 


DERIVATIVE 
-0* 36 197E-07 
-0# 123S4E-07 
-0* 2011 3E-07 
-0.5B446E-10 
-0.33726E-10 
0. 


INCREMENT 
-0. 36315 E-0 6 
-0. 10929E-08 
-0.13694E-08 
-0. 17104E-1 i 
-0* 11321E-12 
-0. 


RELATIVE ERROR 
0 . 603675-08 
0.97585E-09 
0.233S7E-07 
0. 64920E -07 
0.1685 3E-0S 
0* 


( GCKP ! 


END OF- THIS CASE 


READ DATA FOR NEXT CASE 



DISTANCE-AREA VERSION 


;EH£R4l CHEMICAL KINETICS PROGRAM 


NASA LEWIS RESEARCH CENTER 


H2-AIR SJPERSDNIC COMBUSTION 


I3UT»jr IN FPS UNITS} 


REACTION 

NUM 3 ER 


REACTION RATE VARIABLES 


Ml M2 
m(H2Q 
•4102 
MIH202 


HD2 

H202 

H32 

3H 

0 

H20 

02 

H32 

H3H 

H32 

H202 

H202 

H202 


5*00000 

32.50000 

2.00000 

6.60000 


MINIMUM STE» SIZE 
INITIAL STEP SIZE 


HI HZ 
HCH2Q 
M ( 02 
MIN2 


0.100006-03 CM 
0.100006-31 CM 


H23 * 

H. 


2.10000E + U 

DM * 

3 


1.25000E* 14 

OH * 

H 


2.95000E+13 

H32 * 

M 


1 .T^OOOE* 15 

H2 * 

M 


,l.30000E*18 

M2 32 * 

H 


7 * 500 006 ♦ 12 

QH ♦ 

OR 


1.17000E*!? 

DH ♦ 

OH 


7,OOOOOE*13 

H20 ♦ 

M 


7.50000E»23 

02 * 

N 


1. 38000S* 18 

DH * 

OH 


5.75OO0E» 13 

UH ♦ 

OH 


1.30000E*13 

H20 * 

02 


6.00000E+ 12 

3H * 

□2 


5.30000E»12 

H232 * 

02 


1.80000F+12 

H20 * 

R02 


1 • 00000E+ 13 

3H * 

H32 


8.00000E* 13 

H23 * 

OH 


3.183006*14 

DY RATIOS AR3 

1.0 EXCEPT 

the FoiLonr'i; 

5.00000 

H( H2 

. T) 

» 2.30000 

15.00000 

M( H2D 

* 7) 

* 6.00000 

2.00000 

Ml 02 

* 7 > 

* 0.78000 

. 2.00000 

Ml N2 

► 51 

* 2.00000 

INTEGRATION CUNTROIS 




HCH2 
M< H20 
M(92 
MIN2 


ACTIVATION 

ENCRGT 

5100.00 

16300.00 

9800.00 
- 1000.03 

0. 

26000.09 

65500.00 

0. 

0. 

360.00 

18000.00 
63000. 00 

0. 

0. 

0. 

1800.00 
1000.00 
9000.00 


6.00000 
20. 00000 
1.60000 
1 .60000 


MAXIMUM STEP SIZE 0.100COfc*0Q CM 
MAXIMUM RELATIVE ERROR U.QOOlO 


AREA (CM** 2) 


*• ASSIGNED VARIABLE PROFILE ** 

THE AREA IS CALCULATED FROM THE FOLLOWING POLYNOMIAL 
( 0. ) x**3 * ( 0. IX**2 * I 0. )X * ( 2*OO0OUt*O3 1 


THE FOLLOWING SPECIES WILL BE NEGLECTED C R3M ALL ERROR CONSIDERATIONS 
H02 H202 


TIME 


0. 


SEC 


*• INITIAL CONDITIONS ** 

AREA 2.152786*00 SO FT AXIAL POSITION 0. 


FT 


FLOW PROPERTIES 


pressure 

ILB/FT**2} 
VELOCITY 
( FT/ SEC } 
DENSITY 
(LB/F T** 31 
TEMPERATURE 
( DEC R I 

MASS FLOW RATE 
aP./SEC) 
ENTROPY 
16TJ/LB/0EG R) 
MACH NUMBER 


2. 023096*03 
1.493356*04 
9.756776-03 
2.806206*03 
3.136566*02 
2.638906*00 
5.037286*00 


GAMMA 1.317366*00 


INTEGRATION INDICATORS 

STEPS FROM LAST PRINT 0 

AVERAGE STEP SIZE 0. 

CONTROLLING VARIABLE 

RELATIVE ERROR 0* 

PREOICTDR ITERATIONS 0 


H02 

H 202 


CHEMICAL PROPERTIES 


C 3NCENTRAT ION 
1 MOLES/ FT**3 ) 

MOLE FRACTION 

1ET S’ECltS S>333J3Tm TATE 
IH0LE/FT»*3/SEC) 

1.380U5E-06 

2.9580OE-01 

-1.43111E-03 

3. 

0. 

i . 86218E-03 


0. 

0. 

D. 

0. 

3.58833E-03 

5.90691E-O5 

1. 69000E-01 

-1.4310NE-03 

0. 

0. 

4.83937E-10 

3. 

0. 

0. 

3. 

0. 

0. 

2.594946-06 

5. ",62006-01 

0. 


REACTION 

NUMBER 

1 

2 
3 
6 
5 
*> 
r 

3 

9 

10 

11 

12 

13 

16 

13 

16 

17 

19 


NET REACTION CONVERSION KATE 
( MOL E-FT **3/LB** 2/S C) 

0. 

0. 

0. 

0. 

- 1 . 89673E-06 

0. 

0. 

0. 

0. 

-2.561B3E-Q6 

0. 

1. 50333F *0 1 
0. 

0. 

0. 

0. 

0. 

0. 


RATE CONSTANT 
(C'iS UNITS! 
6. 060296*12 
6.686566*11 
1.251616*12 
2. 195756*15 
6.61637E*16 
6. 1 67736 *C9 
4.094736*10 
7 • OC0006 *13 
3. 766016*15 
7.931766*16 
1.723156*11 
9. 1 7578E *06 
6. .„000E*12 
6.000006*12 
1.800006*12 
5. «■ 93276*12 
5. 793016*13 
1.760026*13 



MIXTURE MOLECULAR -EIGHT 


TOTAL ENERGY EXCHANGE RATE 
I8TU-FT*»3/L8»*2/SEC> 


5. 13674E-+05 


MASS FRACTION SUM 


RHD 

T 

H2 

OH 

H20 


DERIVATIVE INCREMENT RELATIVE 

ERROR VARIABLE 

DERIVATIVE INCREMENT 

RELATIVE ERRDR 

0.17794E+00 0. 

0. 

H 

0*8 36 ODE-11 0. 

0. 

-0.6109SE-10 0. 

0. 

02 

-0.32224E-06 0. 

0. 

-0.19763E-D1 0. 

0. 

0 

D.13897E-12 0. 

0. 

-0.3Z225E-06 0. 

0. 

H02 

0. 0. 

0. 

0.64449E-06 0. 

0. 

H202 

0. 0, 

0. 

D. 0. 

0. 

N2 

0. D. 

0. 

TIME 4.39393E-08 SEC 

FLOW PROPERTIES 

AREA 

2.1527BE+03 SO FT 

AXIAL POSITION 
INTEGRATION INDICATORS 

6.561606-04 FT 

PRESSURE 

2.02309E+03 


STEPS FROM LAST PRINT 

? 

(LB/FT*»2> 

VELOCITY 
< FT/ SEC 1 
DENSITY 

1.493356+04 

9.75677E-03 


AVERAGE STEP SIZE 
CONT RDL LING VARIABLE 

0. 10000E-01 

ILB/FT*»3J 

TEMPERATURE 

2.B0620E+03 




I DEG R) 

MASS FLOW RATE 

3.13656E+02 




(LB/SEC) 

ENTROPY 

2.68890E+00 


RELATIVE Error 

0. 

(BTU/LB/DEG R> 

MACH NUMBER 
GAMMA 

5. 03728E *-00 
1.31734E+00 


PREDICTOR ITERATIONS 

0 


CHEMICAL PROPERTIES 


SPECIES 

CONCENTRATION 

HOLE FRACTION 

NET S’ECI ES PRODUCTION RATE 

REACTION 

NET REACTION CONVERSION RATE 

RATE CONSTANT 


I MOLES/FT *»3) 


t MQLE/F T»»3/SEC ) 

NUMBER 

( M0LE-FT**3/LB**2/StC) 

(C3S UNITS) 

H 2 

1.360Q5E-04 

2.95800E-01 

-2.366B7E-03 

1 

9. B2291E+00 

4.04829E+12 

OH 

I.04491E-10 

2. 23967E-07 

1 . 94301 E-03 

2 

1.60277E.-01 

6. 484556*11 

H20 

2. 15362E-11 

4.61607E-0B 

9.3509DE-04 

3 

7.13783E-03 

1.2 51S1E+12 

H 

2.12735E-I1 

4.55976E-06 

9.19433E-04 

4 

1. 17069E-02 

2.1 9575E+15 

02 

5.9Q490E-05 

1.48000E-01 

-1.4474&E-03 

5 

-1 • 884 7 IE— 04 

6.41437E+14 

0 

2.45602E-13 

5. 26424E-10 

1.45793E-05 

6 

1.79827E-0& 

4. 147726*09 

H02 

1* 86705E-14 

4.00184E-11 

1.U427E-06 

7 

-8.47663E-08 

4. s 94716*10 

H20 2 

2 • 5 977 6 E — IB 

5. 868086-15 

1.79263E-10 

9 

9. 64347E-09 

7. OOOOOE*! 3 

N2 

2.59494E-04 

3. 56200E-01 

0. 

9 

2.41876E-06 

3. 74681E+15 





10 

-2.541B1E-06 

7. 93I77E+14 





11 

-8. 14132E-06 

1.723146*11 





12 

1.50332E+01 

9. 37575E*06 





1 3 

8.21298E-10 

6. OOOOOE *12 





14 

-1.432B9E-07 

6. OOOOOE*12 





15 

-2.23242E-13 

1. 80000E+12 





16 

2 • 07647E- 1 3 

5. 5 9326E *12 





IT 

-6. 18016E-1 1 

5. 79301E+13 





18 

1.61652E-13 

1 . 74082E*! 3 


MIXTURE MOLECULAR HEIGHT 


TOTAL ENERGY EXCHANGE RATE 
(8TU-FT»»3/LB»«2/SECI 


2.49034E*05 


MASS FRACTION SUM 


0. 99999999 


RHO 

T 

H2 

OH 

H20 


DERIVATIVE 
O.82322E-01 
-0.2S265E-10 
-0. 91349E-02 
-0. 53296E-06 
0.43751E-06 
0.21056E-06 


INCREMENT 

0. 

0. 

0. 

0. 

0. 

0. 


RELATIVE ERROR 

0. 

0. 

0. 

0. 

0. 

0. 


32 

0 

H02 

H202 

N2 


DERIVATIVE 
0.20703E-06 
-3. 325J3E-06 
3. 32B29E-08 
3.25090E-09 
0.40365E-13 
3. 


INCREMENT 

0. 

0. 

0 . 

0 . 


RELATIVE ERROR 

0. 

0 . 

3 . 

0. 

0. 

0. 


TIME 6.69641E-06 SEC 


AREA 2.1527BE+00 SQ FT 


AXIAL POSITION l.OOOOOE-Ol FT 


FLOW PROPERTIES 


INTEGRATION INDICATORS 


PRESSURE 

(L9/FT*»2) 

2.02677E*03 

STEPS FROM LAST PRINT 

110 

VELOCITY 
I FT/ S EC 1 

1 . 49327E *04 

AVERAGE STEP SIZE 

0. 275276-01 

DENSITY 

(LB/FT»«3) 

9.75730E-03 

CONTROLLING VARI ABLE 

OH 

TEMPERATURE 

2.811466*03 



(DEG R) 

mass flow rate 

3, 136566*02 



(LB/SEC) 
ENTROPY 
t BT J/LB/uEG R) 

2.692406*00 

RELATIVE ERROR 

0.119 39E-06 

MACH NUMBER 

5. 03290E*00 

PREOICT OR ITERATIONS 

3 

GAMMA 

1.3171 7E + 00 
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CHEMICAL PROPERTIES 


species 

H2 

OH 

H2U 

H 

02 

0 

H02 

H202 

N2 


CONCENTRAT I DN 
( MQLES/FMO) 
l. 362306-04 
1.25414E-07 
1.187&2E-06 
9.33057E-07 
5.82746E-05 
1.31500E-07 
3.0629IE-03 
2.151406-10 
2.59503E-04 


MOL :: FRACTION 

2.921196-01 

2.68829E-04 

2. -A570E-03 
2.000036-33 
1.-63A6E-01 

3. H9265E-04 
6. 36543E-05 
A. 6330 IE-37 
5. 55262E-01 


NET S»£ClcS PRQOUC T I OH 3 ATE 
( M0LE/FT**3/S6C> 
-1.607356*00 
1 .190206-01 
1. 11033**00 
3.602 70E-01 
-7.14231E-01 
l.67d60E-01 
1. 550006-02 
1.245196-04 
0. 


REACTION NET REACTION CONVERSION RATE 
NUMBER I MOLE-FT **3/LB»* 2/SEC ) 


1 

1. 165146*04 

2 

6 • 984 70E + 03 

3 

5. 22103E+0 3 

4 

5. 120346 + 02 

5 

2.035786+00 

6 

2.9177 26+00 

7 

1.01893E+00 

3 

3. 365306+02 

9 

1.28709E+00 

10 

3. 28299E-02 

11 

-5. 41199E+00 

12 

1. 50631E + 01 

13 

3. 877696+00 

14 

5 .614826+00 

15 

2.840846-01 

16 

2. U231E-02 

17 

2. 599866-01 

18 

5.938386-01 


RATE CONSTANT 
( COS UNI TS) 
A. 6077E *12 
5.5A870£*ll 
1 • 2590AE *1 2 
2.1 9A A3E *1 5 

5. A0237E *1 A 
A. 208276*09 
5. 031076*10 
7.000006*13 
3. 72861 E *15 
7.9 1855E *1 A 
1. 7A198E*11 
9. 622AI E *06 
6.000006*12 

6. 00006*12 
1. 80000EH2 
5.5 99355*12 
5. 79651 E *13 
1.750315*13 


MIXTURE MOLECULAR HEIGHT 20.91503 TOTAL ENER3V EXCHANGE RATE -1.5A159E*03 

(8TU-FT**3/LB»*2/SE-I 


MASS FRACTION SUM 0.99999986 


VARIABLE 

V 

RHO 

T 

H2 

OH 

H20 


DERIVATIVE 
-0. 562526*02 
0* 1931 6E-07 
0.660736*01 
-0.36205E-03 
0. 26800E-0A 
0. 25002E-03 


INCREMENT 
-0. 10022E*Q1 
0. 3AAIAE-09 
0. 1177 AE *00 
-0. 6A668E-05 
0. A7868E-06 
0. AA662E-05 


RELATIVE ERROR 
0. 8ol39E-ll 
0.36172F-U 
0.2933AE-09 
0.12220E-08 
0.119396-06 
0.99983E-07 


VARIABLE 

H 

02 

3 

H32 

H202 

N2 


DERIVATIVE 

0.19371E-03 

•0.1S033E-03 

3.37793E-0A 

0.3A9026-05 

0.23033E-07 

0. 


INCREMENT 
0. 3A620E-05 
-0.287A0E-O5 
0. 6751 76-04 
0. 63505E-07 
0.30A72E-09 
- 0 . 


RELATIVE ERROR 
0* 89 5 22E-0 7 
0.107415-08 
0.103A96-06 
0.95532E-37 
0. A7328E-07 
0, 


TIME 1.71OI3E-0A SEC 


AREA 2.152736*00 SQ FT 


AXIAL POSITION 2.500006*00 FT 


FLOW PROPER I IES 

PRESSURE 
(L8/FT»*2) 
VELOCITY 
(FT/SECI 
DENSITY 
I LB/ FT** 3) 
TEMPERATURE 
(DEG R) 

MASS FLOW RATE 
( LB/ S EC I 
ENTROPY 
(0TJ/L8/DEG R) 
MACH NUMBER 


3. 67063E*03 
l. A5696E*0A 
1.0000AE-02 
5.A2980E*03 
3. 13653E*02 
2.812A7E*0O 
3.782005*00 


GAMMA 


1.256636*00 


INTEGRATION INDICATORS 

STEPS FROM LAST PRINT 153 

AVERAGE STEP SIZE 0. 998906-01 

CONTROLLING VARIABLE 0 


RELATIVE ERROR 0.339AOE-07 

PREDICTOR ITERATIONS 0 


SPECIES 

CONCENTRATION 
l MOLES/ FT «»3 ) 

MOL 

H2 

2.56337E-05 

5. 

OH 

1. 757a8E-05 

4. 

H20 

1.00380E-04 

2. 

H 

1.32920E-05 

3. 

02 

3.96291E-06 

2. 

0 

5.65619E-06 

1. 

H02 

3.3927 2E-09 

7. 

H202 

3.63237E-10 

8. 

N2 

2.55973E-04 

6. 


MIXTURE MOLECULAR WEIGHT 


VARIABLE 

V 

RHO 

T 

H2 

OH 

H20 


DPR I VAT IVE 
-0 • 122 1 0E*0O 
0.44044E-10 
0. 17782E-01 
-0. 23317E-07 
-0. 4o453E-09 
0.456556-37 


IGCXP) 


END OF THIS CASE 


CHEMICAL PROPERTIES 


FRACTION 

35943E-02 
01 754E-02 
294526-01 
03834E-02 
04877E-02 
29291E-02 
.75520E-36 
, 30290E-37 
.079696-01 


NET SPECIES PRODUCTION RATE 
1M3LE/FT»»3/SEC) 
-1.035496-04 
-2. 063426-06 
2. 327546-04 
- 1 . 962 43E-04 
-6.122736-05 
-7.80650E-05 
-7.23748E-03 
-1.290616-03 
0. 


IE ACT I ON 

NET REACTION CONVERSION 

NUMBER 

(MOLE-FT **3/LB**2/S 

1 

1 . 01 134E+00 

2 

1. 33329E-01 

3 

4. 38638C-0 1 

4 

5.72672E-01 

5 

4.155596-01 

S 

-5.402386-04 

7 

-7.434146-02 

8 

5. 05I95E-01 

9 

1 . 30252E+00 

10 

1. 937596-02 

n 

4. 130436-01 

12 

1. 139786-03 

13 

5. 71222E-02 

14 

1.841 22E-0 2 

15 

2.557886-06 

16 

1.713436-03 

17 

5 . 077096-03 

13 

5. 713436-02 


RATE CONSTANT 
ICGS UNI TSI 
8.968596*12 
8.240896*12 
5.771406+12 
1.078666*15 
3.315045+14 
1. 751746+11 
5. 911646+13 
7.00000E+13 
6. 734905+14 
4.322496*14 
2.85474E+12 
7.667395*09 
6. OOOOOE + 1 2 
6 . OOOOOE + 1 2 
1. '00006*12 
7 . 4061 1 £ +1 2 
6. 77080E+13 
7. 085606 + 13 


22.83918 

TOTAL ENERGY EXCHANGE 
(8TU-FT»»3/LB**2/SE 

RATE 

Cl 

-4. 789306+05 MASS 

fraction sum 

0.99999629 

INCREMENT 
■0. 103516-01 
0.37336E-11 
0. 15035E-02 
■ 0. 199346-OB 
■0. 569316-09 
0. 40854E-0B 

relative error 

0.225455-10 
0.225456-10 
0. 385216-09 
0.187096-08 
0.244136-07 
0.23b56£-0d 

VARI 

H 

0? 

0 

H 02 
H 2 02 
N2 

ABLE DERIVATIVE 

-3.441906-07 
-3. 13787E-07 
-0. 17578E-07 
-0.152976-10 
-0.290516-11 
0. 

increment 

-0. 351 256-08 
-0.110815-0* 
-0. 129516-08 
-0. 175046-1 1 
-0. 133546-12 
-0. 

RELATIVE ERROR 
0.34365E-08 
0.167316-09 
0.339406-07 
0.753436-07 
0.158546-05 
0. 

READ DATA FOR 

NEXT CASE 
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PRESSURE 

iathi 

velocity 

(CN/SEC) 
DENSITY 
I JM/CM»«3) 
TEMPERATURE 
OEG K) 

ENTROPY 
(CAL/GM/DEG KI 
MACH NUMBER 

GAMMA 

SONIC VELOCITY 
ICM/SECt 


MIXTURE MOLECULAR HEIGHT 

0( LOG VOLUME I /OI LOG T) 

AT CONSTANT P 

UtLOG VOLUME) /OILOG P) 

AT CONSTANT T 


•• EQUILIBRIUM COMBUSTION •• 


INITIAL STATE 
I.T300 
0 . 

3.61559E-04 

X&A5.00 

2.1308 

0. 

1.277T 

0. 


FINAL STATE 
1.7300 
0. 

2.31911E-04 

25A1.9B 

2.3013 

0. 

1.1937 

0. 


FINAL/INITIAL RATIO 
1.0000 
0. 

0.6414 
1.5453 
1.0 BOO 
0 . 

0.9342 

0 . 


SPECIES 

MOLE FRACTION 

CH4 

1.7B855E-18 

CM3 

2.41035E-17 

H 

9.19070E-04 

02 

9.7277SE-02 

H02 

5.47067E-06 

CO 

4.906B6E-03 

C02 

4.44220E-02 

0 

4. 17885E-03 

C.H20 

8.05191E-12 

OH 

1.11270E-02 

H2 

1.62431E-03 

N2Q 

9.10073E-02 

HCO 

1.03707 E-09 

H202 

3. 02954E-07 

N2 

7.44532E-01 


27.95144 

1.0953 


-1.0037 



DISTANCE-PRESSURE VERS IQS 


SEVERAL CHEMICAL KINETICS PROGRAM 


VASA LEWIS RESEARCH CENTER 


METHANE-AIR C3MBUST10N AT C3NSTANT P ORE US t MOLECULAR RE ACT ION I CASE 5 


REACTION 

MUM3ER 


REACTION RATE VARIABLES 



l 




CH4 

* 

CH3 

♦ 

H 


2 


CH4 

¥ 

32 

* 

CH3 


432 


3 


H 

¥ 

02 

3 

402 

♦ 

M 




CO 

¥ 

32 

= 

C02 

¥ 

a 




CH3 

¥ 

02 

* 

CH20 

¥ 

04 


s 


H 

¥ 

C H4 

= 

C43 

¥ 

42 


7 


0 

¥ 

CH4 

* 

C43 

¥ 

OH 


3 


OH 

¥ 

CH4 

» 

C43 

¥ 

423 


9 


H 

¥ 

32 


UH 

¥ 

0 


10 


0 

¥ 

H2 

* 

34 

¥ 

4 


L 1 


H2 

¥ 

3H 

* 

420 

¥ 

4 


12 


CO 

¥ 

3H 

* 

C02 

* 

4 


13 


CH3 

¥ 

3 

* 

CH2 3 

¥ 

4 


i V 


CH20 

¥ 

H 


HCO 

¥ 

H2 


15 


CH20 

¥ 

3H 


4C3 

¥ 

420 


15 


CH20 

4- 

3 

= 

4C3 

¥ 

OH 


l 7 


MCO 

♦ 

3 


C 3 

¥ 

34 


19 


HCO 

¥ 

OH 

= 

CO 

¥ 

423 


i 9 


HCO 

¥ 

H 

= 

C3 

¥ 

42 


23 


M 

¥ 

HCO 

* 

4 

¥ 

CO 


21 


HCO 

¥ 

32 


C3 

¥ 

432 


22 


H02 

+■ 

H32 

* 

H202 

¥ 

02 


23 


H 

¥ 

432 

* 

34 

¥ 

04 


2 \ 


0 

¥ 

432 

« 

3H 

¥ 

02 


25 


OH 

¥ 

432 

3 

423 

¥ 

02 


25 


M 

¥ 

4202 

3 

3H 

¥ 

04 


27 


H 

¥ 

34 

3 

423 

¥ 

M 


23 


M 

¥ 

32 

3 

3 

¥ 

3 


29 


Q 

¥ 

420 


04 

¥ 

OH 






ALL 

74110 800V RA7I3S 


1.3 EXCEPT 

MICH4 


, 3) * 

5.00000 

MI 02 

• 31 » 

2.00000 


M( 32 

MtCO 


• 3) = 

2.00000 

MICQ2 

. 3) * 

7.50000 


MM2 

M1H20 


• 25) = 

6.00000 

MIH20 

,27) = 

20.00000 


Ml 4232 

MINE 


,27) =■ 

1.60000 








• 23) 

• 3) 

• 25) 


3.BOOOOE+14 
1.DOOOOE+ 13 
1 . 59000E+ 15 
1 .6000QE+ 13 
7 .500006 * 10 
6.90000E+13 
2*000006+ 13 
7.20000C+13 
1.Z5000E+14 
2. 98D005 + 13 
2 • 10000E+ 13 
4.20000E + U 
1.90000E+13 
1.000006+13 
7 . OOOOOE+ 10 
A. 000006 + 11 
l .300006+ 11 
1 .100006 + 11 
1 .500006+ 12 
2. 000006 + 13 
l . 30000E + 11 
1 .SOOOOE+ 12 
7.000006+13 
5*000006+ 12 
5, 3 OOOOE + 12 
1.170006+ 17 
7.50000E + 23 
2.75000E+ 10 
5.T50OOE+13 


0.78000 

5.00000 

5.80000 


0 . 

0. 

0. 

0. 

0. 

0. 

0 . 


0. 

0. 

0. 

0.7000 
0.5000 
0.5 OCO 
0.5000 
0.5C0C 
0.5 000 
0 .5000 
0. 

0. 


-2 .6000 

- 1.0000 


ACTIVATION 
EN-RGV 
1030 CO. 00 
63000.00 
- 1000.00 

41000.00 

0. 

UHGO.OO 

■7200.00 

5+00.00 

le.'oo.oo 

9900.00 
51 CO. 00 

1000. 00 

0. 

2100.00 
1000.00 

4000.00 

0. 

0. 

0. 

28600.00 

5400.00 

0. 

0. 

0. 

0. 

45500.00 

0. 

118700.00 

18000.00 


Ml 02 

MIH2U 

MIN2 


,27) * 1.60000 
, 3) * 32.50000 
,31* 2.00000 


MINIMUM STEP SUE 
INITIAL STE® SUE 


0. 10000E-03 CM 
0.20000E-01 CM 


INTEGRATION CONTROLS 


MAXIMUM STEP SUE 0.200C06 + 00 CM 

MAXIMUM RELATIVE ERROR C.00O10 


PRESSJRE (ATM 


»» ASSISNE3 VARIABLE PROFILE •• 

THE PRESSURE IS CALCULATED FROM ME FOLLOW I NS POLYNOMIAL 
) * ( 0. ) X+*3 ♦ ( 3. )X»+2 + ( 3. 


) X + I 1. 730006+00) 


THE FOLLOWING S»ECIES WILL 3E NESLECTEO FROM ALL ERROR CONS I OER ATI DNS 


C02 


OH 

H2QZ 


HO 2 



•• INITIAL CONDITIONS •• 


SPECIES 

CH9 

CH3 

K 

02 

H02 

cn 

C02 

0 

CH2D 

OH 

H2 

H20 

HCO 

H202 

N2 


MIXTURE 


VARIABLE 

V 

RHO 

T 

CH9 

CH3 

H 

02 

H02 

CO 


time i'. se: 


AREA 1.00033E+J3 >3 CM 


AXIAL POSITION 0. 


CM 


PLOW PROPER TIES 


PRESSURE 
l ATM ) 

veld; ity 

I CM/ SEC I 
DENSITY 
I GM/ CM** 3) 
TEMPERATURE 
IDES K) 

“ASS FLOW RATE 
<GM/$FC> 
ENTROPY 
ICAL/CM/DEG K ) 
MACH NUMBER 


1.73000 
157912.62 
3. 61559E-09 
1695.00 
5.69139E+09 
2.1308 
2.0000 


GAMMA 


1.2777 


INTEGRATION INDICATORS 

STEPS FROM LAST PRINT 0 

AVERASE STEP SIZE 0. 

CONTROLLING VARIABLE 

RELATIVE ERROR 0. 

PREDICTOR ITERATIONS 0 





CHEMICAL PROPERTIES 





C ONCENTRAT I ON 

MOLE FRACTION 

NET SPECIcS PRODUCTION 

RATE 

REACTION NET REACTION CONVERSION RATE 

RAT: CONSTANT 

l MOLES/CM + + 3 ) 



imjls/:m**3/seo 


NUMBER 

( MDLE-CK++3/GM*. 2/SEC 1 


(CDS UNITS) 

5.37852E-07 

4. 

9T580E-02 

-5. 08397E-06 


l 

3 . 83596E+01 


7. 361615+00 

0 . 

0 . 


5.083975-05 


2 

5. 31069E-01 


9. 265885 + 09 

0 . 

0 . 


5.01959E-06 


3 

0 . 


2. 1 5901E+15 

2.55191E-06 

i. 

V9U72E-01 

-6. 951 66E-08 


A 

0 . 


5. 1956E+07 

3. 

0 . 


6.992385-08 


5 

0 . 


7 • 50000E + 10 

3. 

0 . 


0 . 


5 

0 . 


1. .66975+1 2 

3. 

0 . 


0 . 


7 

0 . 


I. 1 9880E +1 2 

3. 

0 . 


1. 85618E-10 


8 

0 . 


1.18939E+13 

3. 

0 . 


0 . 


9 

0 . 


8. J3770E + U 

3. 

0 . 


0 . 


13 

0 . 


1 . A 7670E * 1 2 

3. 

0 . 


0 . 


11 

0 . 


9.91213E+12 

3. 

0 - 


0 . 


12 

0 . 


3.093095 + 11 

3. 

0 . 


0 . 


13 

0 . 


1,000005 + 13 

3. 

0 . 


0 . 


19 

0 . 


5.923535+12 

9.52725E-06 

7. 

5116QE-31 

0 . 


15 

0 . 


9. ! 95115 + 12 






IS 

0 . 


1 .00076E+I3 






17 

0 . 


7. 30055E + 12 






IB 

0 . 


9.96195E+12 






19 

0 . 


6. 063795+13 






20 

0 . 


1.286985+11 






21 

0 . 


7. 77919E+11 






22 

0 . 


1.SC000E + 12 






23 

0 . 


7. 000005 + 13 






29 

0 . 


6. OOOOOE+12 






25 

0 . 


6.000006+12 






26 

0 . 


1. 05985E +11 






27 

0 . 


3. 258595 + 15 






28 

7.09957E-09 


2.3381 8E+ 00 






29 

0 . 


2. 339765+11 

MOLECULAR WEIGHT 


28.21338 

TOTAL ENERGY EXCHANGE 

RATE 

9.05133E+05 

MASS FRACTION SUM 

0 . 

99990999 




t CAL-CM*»3/GM»»2/S 

EC) 





DERIVATIVE 


INCREMENT 

RELATIVE FRROR 

VARIABLE DERIVATIVE INCREMENT 

RELAT1V: ERRDR 

- 0 . 


0 . 

0 . 

C32 

3. 

3. 

0 


0.561U8E-38 


0 . 

0 . 

0 

0.32619E-11 0. 

0 


-0.29616E-01 


0 . 

0 . 

CH23 

0 . 

0 . 

0 


-0.89327E-07 


0 . 

0 . 

OH 

0 , 

0 . 

0 


C.89327E-37 


0 . 

0 . 

HZ 

0 , 

0 . 

0 


0. Hdi0aE-07 


0 . 

0 . 

H20 

0. 

0 . 

0 


-0, 12219E-0B 


0 . 

0 . 

HCO 

0 . 

0 . 

0 


0.12193E-D8 


0 . 

0 . 

H202 

0 . 

0 . 

0 , 


0 . 


0 . 

0 . 

N2 

9 . 

0 . 

0 



94 



TIMS l.5381dt-06 SEC 


AREA 1.01416E+D3 SO CM 


AXIAL POSITION 2.30000E+01 CM 


FLOW PROPERTIES 

PRESSURE 1. 73000 

(ATM) 

VELOCITY 157612.62 

(CM/SEC) 

DENSITY 3.55809E-06 

(GM/Cm»»3I 

TEMPERATURE 1671.27 

IOEG K I 

MASS FLOW RATE 5.691396*06 

IGM/SFC) 

ENTROPY 2.1391 

(CAL /CM/ DEC X) 

MACH NUMBER 1.7865 

GAMMA 1.2771 


INTEGRATION INDICATORS 

STEPS FROM LAST PRINT 76 

AVERAGE STEP SIZE 0.19836E+00 

CONTROLLING VARIABLE HCO 


RELATIVE ERROR 0. 335696-05 

PREDICTOR ITERATIONS 0 


CHEMICAL PROPrRTIES 


SPECIES 

CONCENIRAT ION 
( MOL ES/ CM* * 3 ) 

MOL C FRACTION 

CH6 

5.78219E-07 

6. >33596-02 

CH3 

6.0 85776-09 

3. .;3H83E-06 

H 

1. 629626-11 

1. 79182E-U6 

02 

2.66367E-06 

1. D5297E-01 

H02 

3 .309 15E-10 

2. 62260E-U5 

CO 

1.72519E-09 

1. 36757E-06 

C02 

9.61762E-12 

6.33126E-07 

0 

2.892 78E-1 1 

2.2931 3F-06 

CH20 

6.36535E-0B 

3 . 660 6 5E -03 

OH 

1.11323E-10 

3.;-:2 50 7E-06 

H2 

9.625i7t-10 

6 . o78 7 IE-05 

H20 

3.81161 £-08 

3. 01 62 IE-0 3 

HCO 

1.599316-11 

1. 26755E-06 

H202 

1.1 6uO 3E- 1 3 

9.086716-09 

N2 

9. 6761 5E-06 

7 . :■ 1026E-01 


NET SPFCIcS PRODUCTION RATE REACTION 

(MJLE/CM». 3/SEC) NUMBER 

-a. 261965-06 1 

6 • 3999 15-05 2 

5.376665-07 3 

-B.03013E-06 6 

1.01506E-05 5 

6.136525-03 S 

3. 55506E-07 7 

7. 535215-07 9 

6. 968905 -05 9 

2.01552E-05 10 

2.19618E-05 II 

3.25391E-06 12 

5.82771E-07 13 

1.26731E-08 13 

0. 15 


16 

17 

13 

19 

20 
21 
22 
23 
26 

25 

26 

27 

28 
29 


REACTION CONVERSION KATE 

RATE CONSTANT 

1 MOLE-CM«*3/GM»*2/SEC) 

(CGS UNI TSI 

5 . 5 89 1 3E + 0 1 

l. 1 90095+01 

3.362256-01 

5. 77537: +06 

-1. 62136E+02 

2. 16865E + 15 

2. 33665E+00 

6. 9 5999E +07 

5 . 963266+0 3 

7. 500005+10 

1.668986+02 

1. 775975 +12 

1. 656C1E+02 

1.253025+12 

6 • 159696 +0 3 

1.2 18625 + 1 3 

2.92603E+02 

9.2 33866 + 11 

2.79661E-01 

l . 567965 + L2 

2 . 060 17E+00 

6.521486+12 

6. 716556-01 

3.108005+11 

1.77392E+01 

l . 900006 + 13 

3. 07701E+01 

5. 675996+12 

3.586326+02 

9.36268E+12 

1 . 027 366 + 0 2 

1. 2996E+13 

2.688616-02 

7. 35861E+12 

6. 32320E-02 

6. 696936 + 12 

1.2621 7E-0 1 

5. 1 32186+13 

2 . 370696+02 

1.687396 + 11 

2. 502686+02 

8. 62176+11 

l. 555966+00 

1.50000E+12 

2. 98082E+00 

7 • OOOOOE + 13 

6. 52688E-01 

6 . OOOOOE + 12 

1.72656E+00 

6. OOOOOE+l 2 

1.657626+00 

1.312855+11 

8. 231096-06 

3. 127085+15 

l. 16018E-03 

6. 763766+00 

Z.35792E+00 

2. 56585E+11 


Ml XTUftfc 

MOLECULAR WEIGHT 

28.20529 

TOTAL ENERGY EXCHANGE 
(CAL-CM**3/GM»+2/S£ 

RATE -6. 

C) 

06930E + 03 MASS 

FRACTION SUM 

VARIABLE 

DERIVATIVE 

INCREMENT 

RELATIVE ERRUR 

VARIABLE 

DERIVATIVE 

increment 


-0 . 

-0. 

0. 

C02 

0.63673E-08 

0. 70033E-09 

RHO 

-0. 616626-36 

-0.68O05E-07 

0.783076-09 

0 

0. 1 36566-07 

0. 169166-03 

T 

0.286776+01 

0. 31673E+00 

0.1D621E-03 

CH20 

0. 126D7E-06 

0. 133 13E-0’* 

CH^ 

-0.167516-06 

-0. 16609E-05 

0.65036E-08 

OH 

0.35006E-07 

0. 39B58E — 08 

CH3 

0. 12319E-D5 

0. 136456-06 

0.11596E-06 

H2 

0.3921 IE-06 

0.633716-07 

H 

0.95996E-D8 

0. 102966-08 

0.3U018E-05 

H20 

0.167376-06 

0. 163896-0 5 

02 

-0. 163376-06 

-0. 15968E-05 

0. 10308E-0B 

HCO 

0. 106056-07 

0.11271E-08 

H02 

0.181236-06 

0.20102E-07 

0. 539036-07 

H202 

0.22270E-09 

0. 15353E-10 

CO 

1). 109576-05 

0. 121O7E-06 

0.631715-06 

N2 

0. 

-0. 


0.99999971 


RELATIV: ERROR 
0.56212E-06 
0.59127E-06 
0. 30398E-07 
0. 3392 6E-06 
0.29580E-06 
0.588 33E-07 
0.33569E-05 
0.99256E-06 
0 . 
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TIME 2.41 404E-04 SEC 

AREA l.li 


EL OR RROPtRTIES 



PRESSURE 

1.T3000 


(ATM) 



VELOC 

I TY 

157412.62 


I CM/ S EC ) 



DENSITY 

3.25025E-04 


(GM/CM++ 3) 



TEMPERATURE 

1618.15 


(DEG 

K ) 



MASS 

FLOW RATE 

6. 691 39E+04 


(GM/SEC ( 



ENTROPY 

2.1361 


( CAL/GM/DEG K) 



MACH 

NUMBER 

1.8973 


GAMMA 


1.2765 




CHEMICAI 

SPECIES 

CONCENTRAT ION 

MOLE FRACTION 

NET S»ECIcS PRODUCT 


( N0LES/CM+.3) 


(MJLE/CM + + 3/S: 

CH4 

2.767o5E-07 

2 . jB72CE-D2 

-1.26977c-02 

CH3 

5.31935E-0B 

4. SB797E-03 

i. 451 75E-D3 

H 

1.43519E-09 

1. 41031E-04 

2.4071 9E-04 

02 

1. 998656-06 

1. 72378E-01 

- 1 . 35406E-0 2 

H02 

5.8244:06-09 

5.885/06-04 

2.17629E-04 

CO 

3.92853E-08 

7 . 70063E-03 

8.27224E-03 

C02 

9.211516-10 

7. 944696-05 

1.22939E-04 

0 

1-25R51E-09 

1.0B543E-G4 

1. 509985-04 

CH20 

1.51727 E-07 

1. 30861E-0? 

6.96665E-04 

OH 

3.14395E-09 

2.T1158E-04 

4.11843E-04 

H2 

2 . 76627E-08 

2. 38584E-03 

2 . 2 9640E-03 

H20 

3.27487E-07 

2. 82449E-02 

1. 671085-02 

HCO 

1.48625E-09 

1.2818 5E-04 

1.540675-04 

H202 

1.52901E-11 

1. 40498E-06 

1.66410E-06 

N2 

3. 65 44 7E -06 

7 . +6426E-01 

0. 


1.U240E + 03 



SO cm 


3 

AXIAL POSITION 3.80000E + 01 CM 


I NTEGRATl ON INDICATORS 
STEPS FROM LAST PRINT 
AVERAGE STEP SIZE 
CONTROLLING VARIABLE 


27 

0. 11158E + C0 
HCO 


RELATIVE FRROR 
PREDICTOR ITERATIONS 


0.38975E-04 

0 


£S 


REACTION 

NUMBER 

1 

2 

3 

5 

6 
7 
3 
9 

10 
11 
12 
13 
1 A 

15 

16 
IT 
18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 
29 


NET REACTION CONVERSION RATE 
IM0LE-CM++37GM++2/SEC) 

-A 4 139876+03 
-1. 12356E+02 
*■1 4 403568 + 04 
3. 18726E+02 
7. 548106+04 
9. B0359E + 03 
5 # 089 35E + 0 3 
1.09555E+Q5 
4.212 75E+04 
5. 72273E+02 
2 . 463P6E+03 
8. 45008E+02 
l 4 204 G7E+04 
1. 34988E+04 
4 4 53460E+G4 
2. 15852E+04 
1 . 35894E+02 
2.07463E+0? 
1.47140E+03 
5.075B4E+04 
2 4 68955E+04 
7 • 93468E+02 
7. 39404E+03 
4. 87690E+02 
1.21774E+03 
7. 77716E+02 
2. 94476E+00 
-8. 54764E-02 
1 4 1O8S8E+0 3 


RATE CONSTANT 
ICSS UNITS) 
1. 580285+02 
2.6 7378E + 05 

2.0 9701 E + 15 

1. : 8587E+Q8 

7. >00008+10 

2. >32925+12 
1. >67296 + 12 
1 , 40646: +1 3 
1. J7271E+12 
1 , 96467E +12 
5.1 1890E+12 
3.1 84535+11 
1. 7 0000E + 1 3 
5. 74899E+12 
l. >15396+13 
1. 19404E + 1 3 
7. 57515E+12 
4.69038E+12 
6. 34597E+13 

3. 1 1172E + 11 
9- 06558E+1 1 
1 . 000005 + 12 
7 . OOOOOE + 13 
6 , COOOOE + 12 
6. 000005+12 
3.97089E + 11 
2.6 1202 E * 1 5 

8. 1 5539E+01 
3.944486+11 


MIXTURE MOLECULAR WEIGHT 


VARIABLE 

DERIVATIVE 

V 

-0. 

RHO 

-0. 10217E-04 

T 

0.50690E+02 

CH4 

-0, 24818E-03 

CH3 

0. 67466E-04 

H 

0. 47049E-05 

02 

-0.26455E-03 

H02 

0. 425366-05 

CO 

0. 161 68E-03 


28.03260 

TOTAL ENERGY EXCHANGE 
( CAL-CM»»3/GM»t 2/ SE 

R4TE -7.943 

C) 

40E + 09 MASS 

FRACTION SUM 

0. 99999977 

INCREMENT 

RELATIVE ERROR 

variable 

DERIVATIVE 

INCREMENT 

KELATIVF ERROR 

■0. 

0. 

C 02 

0.24029E-05 

0.20514E-06 

0 . 77 6D9E-04 

0.897a4E-06 

C. 752986-06 

0 

0. 2951 3E-05 

0. 250786-06 

0. 8B260E-04 

0.44376E+01 

0. 809566-06 

CH2 3 

0. 13617E-04 

0. 141 95E-05 

0.94965E-05 

■0. 219018-04 

0. 41 274E-05 

OH 

0 , 80496E-05 

0.65920E-06 

0*111 39E-33 

0. 59716E-05 

0.32071F-05 

32 

0.44884E-04 

0. 39209E-0 0 

0.15830E-04 

0. 36519E-06 

0.115745-03 

320 

0. 32652E-03 

0.2.8547E-04 

0. 86454E-05 

0. 232586-04 

0. 98457--05 

HCO 

0.30113E-05 

0. 26862 E-06 

0 .3697 5E-04 

0. 421 73E-06 

0. 29646F-04 

3202 

0.32525E-07 

0.5B875E-09 

0.13681E-03 

0. 14036E-04 

0.25672E-04 

N2 

0. 

-0. 

0. 
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TIME 2.509336-04 


SEC 


AREA i.21259E*03 SO CM 


AXIAL POSITION 3.95000E*01 CM 


PLOW PROPERTIES 


INTEGRATI ON INDICATORS 


PRESSURE 

(ATM) 

VELOCITY 
(CH/SECJ 
DENSITY 
(GM/CH**3) 
TEMPERATURE 
(DEO K) 

MASS FLOW RATE 
(GM/SEC) 
ENTROPY 
(CAL/GM/DEG K) 
MACH NUMBER 


1.73000 

157412.62 

2.9B146E-04 

1959.63 

5.69139E*04 

2.2310 

1.8153 


STEPS FROM LAST PRINT 
AVERAGE STEP SIZE 
CONTROLLING VARIABLE 


26 

0.61148E-01 

HCQ 


RELATIVE ERROR 0.17799E-04 

PREDICTOR ITERATIONS 0 


GAMMA 


1.2787 


CHEMICAL PROPERTIES 


SPECIES 

CH4 

CH3 

H 

02 

H02 

CO 

C02 

□ 

CH20 

OH 

H2 

H20 

HCO 

H202 

NZ 


CONCENTRATION 

MOLE FRACTION 

NET SPECIES PRODUCTION RATE 

REACTION 

NET REACTION CONVERSION RATE 

RATE CONSTANT 

l MQLES/CH»*3) 


I MOLE /CM* »3 /SEC) 

number 

(M0LE-CM**3/GM**2/SEC) 

(CGS UNITS) 

3.96005E— 08 

8. 33100E-03 

-2. 289116-02 

1 

-4.42863E*04 

1.23761E+03 

8.6136 IE— 08 

8.00887E-03 

9. 91434E-04 

2 

-2.09712E*02 

9.415635*05 

S.74I21E-09 

8.12752E-04 

2. 369656-03 

3 

-3.526506*04 

2.05553E*15 

1.624616-06 

1.51055E-01 

-3. 95226E-02 

4 

1.887196*03 

4.28101E*08 

5.95192E-09 

5.53406E-Q4 

-6.47244E-04 

5 

1.180706*05 

7. 50000E*10 

2. 412456-07 

2. 24308E-02 

3.31094E-02 

6 

2.155036*04 

3.333046*12 

5. 45722E-Q9 

5.07408E-04 

1.63593E-03 

7 

1.218746*04 

1 . 8 8360E *1 2 

5.96839E-09 

6.47917E-04 

2.35486E-03 

8 

2.682786*05 

1. 58244E+13 

9.95371E-08 

9.254906-03 

-1.31231E-02 

9 

2.90260E+05 

1.901226*12 

1.88113E-08 

1.74906E-03 

5.835336-03 

10 

7.915886*03 

2. 389656*12 

6.00369E-08 

5. 58219E-03 

4. 8851 IE-03 

11 

4.33624E+04 

5.668086*12 

5.65220E-07 

5.25537E-02 

4. 861 71E-02 

12 

1. 651666*04 

3. 24880E*11 

4.004196-09 

3.723076-04 

2. 774626-04 

13 

1.282966*05 

1.900006*13 

6.62114E-12 

6. 15629E-07 

-1.60565E-06 

14 

5.853826*04 

5.983396*12 

7.93875E-06 

7. 38140E-01 

0. 

15 

2. 29910E*05 

1.091676*13 




16 

1.055506*05 

1.35288E*13 




17 

2.501216*03 

7.968186*12 




13 

4. 126266*03 

4.869446*12 




19 

2.61461E+04 

6.640156*13 




20 

2.771566*05 

5.72094E*ll 




21 

8.094686*04 

1.106236*12 




22 

7. 17328E*02 

1.800006*12 




23 

4.096936*04 

7.000006*13 




24 

2.797916*03 

6.000006*12 




25 

7.551526*03 

6.000006*12 




25 

7.353916*02 

9.8569BE*ii 




27 

1.038406*02 

2.067336*15 




28 

-3. 115L46+00 

8. 10959E*02 




29 

6.401096*03 

5.551926*11 


MIXTURE 

N3LECULAR WEIGHT 

27.72139 

TOTAL ENERGY EXCHANGE RATE -3. 

ICAL-CM»»3/GM»*2/S6C) 

050726*10 HASS 

FRACTION SUM 

VARIABLE 

DERIVATIVE 

INCREMENT 

RELATIVE ERROR 

VARIABLE 

DERIVATIVE 

INCREMENT 

v 

-0. 

-0. 

0. 

C02 

0.343586-04 

0. 91590E-06 

AHO 

-0.31309E-04 

-0. 84125E-06 

0.665046-08 

0 

0.501766-04 

0. 12524E-05 

T 

0.178136*03 

0.476146*01 

0.692626-07 

CH20 

-0.279626-03 

-0. T 49 28E-0 5 

CHt 

-0.487756-03 

-0.132896-04 

0.332986-05 

ON 

0.124346-03 

0.33226E-05 

CH3 

0.211256-04 

0.761026-06 

0.45417E-05 

N2 

0.104096-03 

0.284T4E-05 

H 

0. 5O491E-04 

0.130786-05 

0.86646E-05 

H20 

0.103596-02 

0.27846E-04 

02 

-0.842136-03 

-0.225786-04 

0.91784E-07 

HCO 

0.591206-05 

0. 19574E-06 

H02 

-0.13791E-04 

-0.353416-06 

0.42568E-05 

N 202 

-0.342126-07 

-0.82516 6-09 

CO 

0.705486-03 

0. 18909E-04 

0. 11689E— 06 

N2 

0. 

-0. 


1.00000010 


RELATIVE ERROR 
0.64862E-05 
0.22061E-04 
0.10099E-05 
0.86878E-05 
0. 14193E-05 
0.17071E-06 
0.17799E-04 
0.19100S-05 
0 . 
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2.54109E-04 StC 

AREA 

1. 295396+03 SO CM AXI4L POSITION 

4.I..OOOOE +01 CM 

H. nw PROPER 1 IES 


integration indicators 


P <ESSURE 

( atm ) 

1.73000 

steps E R0 M LAST PRINT 

14 

velo: i ty 
(CM/S rC) 

137412.62 

AVERAGE STEP SIZE 

0. 376 5 fat -01 

DfNSI TY 
IGM/C"». 

?. 786546-04 

CONTROLLING VARIABLE 

HCU 

TEMPSRATU-E 

207o.66 



I DE 5 K 1 

MASS FLOW RATF 

5.691 39E *04 



(GM/SECI 
ENTROPY 
ICAL/GM/OEG K) 

2.2632 

RELATIVE ERROR 

0.657ulE“ 04 

MALH NUMBER 

1.7551 

PREDICTOR ITERATIONS 

C 

GAMMA 

1.2804 




CHEMICAL PROPERTIES 


SPECIES CONCENTRATION MOL i. FRACT 1 ON 


CH4 

I M0LES/CM++3) 
2.221B1E-0B 

2. 18976E-03 

CH3 

5.32792E-08 

5. 74383E-03 

H 

2.040JOE-08 

2.C1056E-03 

02 

1.36036E-06 

1.34073E-01 

H02 

2.39644E-09 

2.85465E-04 

CO 

3. 4 77 9BE-07 

3.42 7796-02 

C02 

1.60579E-08 

1.58262E-03 

0 

2.34900E-08 

2. 31511E-03 

CH20 

4, 36895E-0R 

4.00591E-03 

OH 

5.50] 20E-08 

5.421826-03 

H2 

S.42010E-08 

6. 327476-03 

H20 

7.03032E-07 

6. 92B8RE-32 

HCO 

3. 903396-09 

3.B4677E-04 

H202 

7.10135E-12 

6.99889E-07 

N2 

7.425066-06 

7. 31 792E-01 



MIXTURE MOLECULAR WEIGHT 27.48301 


CH4 

CH3 


02 

H02 

CO 


DERIVATIVE 

- 0 . 

-0.43372E-04 
0.28268E+03 
-t). 31402E-03 
-0.41400E-03 
0. 12983E-03 
-0. 14672E-02 
-0.21495E-04 
0. 9o758E-03 


I NCREMENT 

- 0 . 

-0. 975+96-06 
0. 63143E+01 
-0. 731L.9E-05 
-0. 90190E-05 
U. 28987E-05 
-0. 327<;4E-04 
-0.48910E-D6 
0. 21821E-04 


MET SPECIES PRODUCTION RATE REACTION NET REACTION COWERS ION RATE RATE CONSTANT 


(M0LE/CM++3/SECI 

number 

(MDLE-CM*»3/GM»« 2/Sr.C) 

(CIS UNITSI 

-1.373396-02 

1 

-7.925126+04 

5.495235+03 

-1.B1727E-02 

2 

-8.43361E+01 

2.143326+06 

5.69890E-03 

3 

-2. 50956E+04 

2. 02599E+1 5 

-6. 44029E-02 

4 

4. 70716E+03 

7. 749066+03 

-9. 47909E-04 

5 

7.645726+04 

7*5 OOOOE + i 0 

4.24721E-02 

5 

1. 53421E+04 

3. 953746 + 12 

6.61 424E-03 

7 

1.181 63E+04 

2.1 51676 + 12 

1.230636-02 

e 

2 . 2944 OE + 0 5 

1. 723506+13 

-1.647235-02 

9 

7.059196+05 

2.407056+12 

1. 820835-02 

13 

2.437r0E+04 

2. 753306+12 

-1 .456716-03 

11 

1.502466+05 

6. 102276*12 

6.15 94.3E -02 

12 

0. 03532E+04 

3.296166 + 11 

-6. 56871E-04 

13 

3. 345 016 +0 5 

1.900006+13 

1. 10277E-05 

14 

7.05516E+04 

6. 159126+12 

0. 

15 

3. 56430F+05 

1.1 53496+13 


15 

1.95830E + 05 

1 # * B428E + 1 3 


17 

9. 671 51E+03 

8. 2 02 566+12 


18 

1.38417E+04 

5. 1275E+12 


19 

6. 999376+04 

6. 8 355 7 = + 1 3 


20 

4.536B6E+05 

8. 90897E+11 


21 

B • 406 38 c + 04 

1. -31 35 E +12 


22 

1.94163E+02 

1. OOOOE + 1 2 


23 

5. 31728E + 04 

7. (/OOOOE + 13 


24 

5.239716+03 

6. 000006+12 


25 

1. 227486 +04 

6.000006 + 12 


26 

5. 2344 1E+01 

1.904286+12 


27 

7. 36153E + 0? 

1.77791E+15 


28 

-3. 746616+01 

4, 2 6470E + 03 


29 

-2. 91457E+04 

7*3 33B9E + 1 1 

TOTAL energy exchange rue 

-5.199246+10 

MASS FRACTION SUM 

1.00000054 

t CAL-CM+. 3/GM.. 2/SEC I 





6LATIVE ERROR 

VARI A3LE 

DERIVATIVE 

INCREMENT 

RELATIV: ERROR 

0. 

C 02 

0. 1 506SE-03 

0.328436-05 

0. 94848E-D5 

0. 621 99E-05 

0 

0*280366-03 

0. 5 644 1 E -0 5 

0.6711 5F-04 

0. 40958E-06 

CH20 

-0.37523E-03 

-0. 6 52 1 2E-0 

0. 159956-04 

0. 30623E-Q4 

OH 

0.41 481E-D3 

0. 98363E-0". 

0 .33422E-04 

0. 56303F-06 

H 2 

-0.331856-04 

-0. t-13476-0 

0.2527BE-05 

0.U295E-O4 

H20 

0. 14032E-02 

0*612716-0 

0. 11412E-05 

0.5 7286E-05 

HCO 

-0. 149S5E-04 

-0.24B33E-06 

0.657316-04 

0.103216-04 

H20 ’ 

0. 25123E-06 

0.1E323E-03 

0.49192E-03 

0. 375985-05 

N2 

0. 

-0. 

0. 
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T I ME-ARE A VERSION 


IENERAL chemical kinetics program 


NASA LEWIS RESEARCH CENTER 


METHANE-AIR COMBUSTION {ASSIGNED ARE* - TIME INTEGRATION! 


CASE 6 


REACTION 

NJM8ER 


1 

2 CHA 

3 H 

A CO 

5 CH3 

5 H 

7 0 

8 OH 

9 H 

ID 0 

11 H2 

12 CO 

13 CH3 

I A CH20 

15 CH20 

lb CH20 

17 HCO 

18 HCO 

19 HCO 

2D M 

21 HCO 

2 2 H02 

23 H 

2A 0 

25 OH 

2 S H 

27 H 

28 N 

29 □ 


HICHA , 3) - 5.00000 
HI CO , 3 ) » 2.DOOOO 
HIH20 .26) * 6.00000 
M(N2 .27) « 1.50000 


REACTION ^ REACTION 



CH* 


CH3 

♦ 

H 

3. 80000E* 1A 

♦ 

02 


CH3 

¥ 

402 

1.00000E+13 

♦ 

32 


H02 

¥ 

M 

l . 59000E* 15 


02 


C02 

♦ 

0 

l .SOOOOE* 13 


32 


CH20 


OH 

7.50000E+10 


CH4 


CH3 

¥ 

H2 

5 • 90000E* 13 

♦ 

C44 


CH3 

¥ 

OH 

2. OOOOOE* 13 


CH4 


CH3 

¥ 

H2Q 

7.200006*13 

¥ 

32 


OH 

¥ 

0 

i .2 5000E* 1A 

+ 

H2 


OH 

¥ 

H 

2.95000E* 13 

¥ 

3rt 


H20 

¥ 

H 

2.10000E+13 

♦ 

3 H 


C02 

¥ 

H 

A. 200006*11 


3 


CH20 

¥ 

H 

1.900006*13 

♦ 

H 

a 

HCO 

¥ 

H2 

1.000006*13 

■f 

OH 

M 

HCO 

¥ 

H20 

7 . OQOOOE+IO 

♦ 

□ 

m 

HCO 

¥ 

OH 

A.OOOOOE+11 


o 


CO 

¥ 

04 

1. 900006*11 

♦ 

OH 


CO 

¥ 

H20 

1 .10000E+11 




CO 

¥ 

42 

1.500006*12 

¥ 

HCO 


H 

¥ 

CO 

2 .OOOOOE* 13 


02 


CO 

¥ 

402 

1.000006*11 

+ 

H32 


H2D2 

¥ 

02 

1.80000E*12 

♦ 

H02 


OH 

¥ 

OH 

7.000006*13 

4. 

H32 


OH 

¥ 

02 

6. OOOOOE* 12 

+ 

H02 


H20 

¥ 

02 

6.00000E*12 

4- 

H202 


DH 

¥ 

OH 

1.170006*17 

+ 

OH 


H20 

¥ 

M 

7.500006+23 


32 


0 

¥ 

0 

2 • 75000E+ 19 

♦ 

H20 

- 

DH 

¥ 

OH 

5 . 75000E+ 13 


ALL 

THIRO BODY 

RATIOS ARE 

1.0 EXCEPT 

THE FOLLOWING 

M 1 02 

MIC02 

MIH20 

. 3) * 
. 3) * 
,27) » 

2.00000 

7.50000 

20.00000 

Ml 02 
HI 42 
MIH202 

,25) * 
» 3) * 
,26) « 

0.78000 

5.00000 

6.60000 


RATE VARIABLES 
N 


Q. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0.7000 

0.6000 

0.5000 

0.5000 

0.5000 

0.5000 

0.5000 

0. 

0. 

0. 

0. 

0. 

-2.6000 

- 1.0000 

0. 


ACTIVATION 
ENERGY * 
103000.00 
63000.00 
- 1000.00 
A1000.00 
0. 

1 1 800.00 

9200.00 

5900.00 

16300.00 
9 3 00.00 

5100.00 

1000.00 

0. 

2000.00 

1000.00 

A000.00 

0. 

0. 

0. 

28600.00 
5AOO.OO 

0. 

0. 

0. 

0. 

A5500.00 

0. 

118700.00 

18000.00 


MI32 .27) * 1.60000 
MIH20 . 3) » 32.50000 
Ml N2 . 3) » 2.00000 


INTEGRATION CONTROLS 

MINIMUM STEP SIZE 0.62500S-09 SEC 

INITIAL STEP SIZE O.125O0E-06 SEC 


MAXIMUM STEP SIZE 0.12500E-05 SEC 
MAXIMUM RELATIVE ERROR 0. 00010 


•• ASSIGNED VARIABLE PROFILE •• 

THE AREA IS CALCULATED BY INTERPOLATION FROM THE POLL DM ING TABLE 


STATION 

AXIAL DISTANCE 

1 

0. 

2 

S.OOOOOE+OO 

3 

1.00000E+01 

A 

1. 5QOOOE+0 l 

5 

2.000002*01 

6 

2.50000E+01 

7 

3.000006*01 

8 

3.50000E*01 

9 

3.600006*01 

10 

3.700006*01 

11 

3.80000E+01 

12 

3. 90000E+01 

13 

A.OOOOOE+Ol 

1A 

A. 050006*01 

15 

A. 100006*01 

16 

A. 200006*01 


l CM) AREA (CM**2> 

1.0000DE+O3 
l* 000A5E+O3 
I.Q0202E+03 
1.00A83E+03 
1.0D92VE+03 
1.01616E+03 
1 .02832 £*03 
1.05702E+03 
1.063736*03 
1 . 08555 E+03 
1 • l 12 A06+03 
1.15357E+03 
1. 29559E+03 
1.371686*03 
1.38AA7E+03 
1 . 400A5E*03 


THE FOLLOWING SPECIES 
C02 H 


WILL BE NEGLECTED 
OH 

H202 


FROM ALL ERROR 

H02 

HCO 


CONSIDERATIONS 

0 
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** INITIAL CONDITIONS •* 


TIME 0. SEC 


AREA l.OOOODEOJ SO CM 


AXIAL POSITION 


CM « 


FLOW PROPERTIES 


PRESSURE 

(ATM) 

VELOCITY 
(CM/SEC) 
DENSITY 
(GM/CM**3) 
TEMPERATURE 
IDES K> 

MASS FLOW RATE 
IGM/SEC1 
ENTROPY 
(CAL/GH/DEG K) 
MACH NUMBER 


1.73000 
157412.62 
3.61559E-04 
1645.00 
5. 69139E»04 
2.1308 
2.0000 


GAMMA 


1.2777 


INTEGRATION INDICATORS 

STEPS FROM LAST PRINT 0 

AVERAGE STEP SI2E 0. 

CONTROLLING VARIABLE 

RELATIVE ERROR 0. 

PREDICTOR ITERATIONS 0 


CHEMICAL PROPERTIES 


IPECIES 

CONCENTRATION 
I M0LES/CM»#3) 

MOLE FRACTION 

NET SPECIES PRODUCTION RATE 
(M0LE/CM*«3/SECI 

CH4 

S.37652E-07 

4.97680E-02 

-5.08397E-06 

CH3 

0. 

0. 

5. 08397E-0S 

H 

3. 

0. 

5.01454E— 06 

02 

2.55141E-06 

1.99072E-01 

-6.95166E-08 

H02 

0. 

0. 

6.94238E-08 

CO 

3. 

0. 

0. 

C02 

3. 

0. 

0. 

0 

3. 

0. 

1.85618E-10 

CH20 

0. 

0. 

0. 

OH 

3. 

0. 

0. 

H2 

3. 

0. 

0. 

H20 

3. 

0. 

0. 

HCO 

0. 

0. 

0. 

H202 

3. 

0. 

0. 

N2 

9.62725E-06 

7.51 160E-01 

0. 


REACTION 

NET REACTION CONVERSION RATE 

RATE CONSTANT 

NUMBER 

<M0LE-CM»»3/GM«»2/SEC* 

(CGS UNITS! 

1 

3.83596E+OI 

7 • B6161E+00 

2 

5.31069E-01 

4. 26588E+04 

' 3 

0. 

2.1 5931E+15 

4 

0. 

5. 7 1456E+0T 

5 

0. 

7.50000EHO 

6 

0. 

1 . 86697E +12 

7 

0. 

1. 19880E+12 

8 

0. 

1.18434EU3 

9 

0. 

8.53770E»li 

10 

0. 

1.47670£*12 

u 

0. 

4. 4 121 3E+12 

12 

0. 

3. 09309E+11 

13 

0. 

1 • 90000E«-i 3 

14 

0. 

5.42358E*12 

15 

0. 

9. 1951I£*12 

16 

0. 

1 . 00076E+13 

17 

0. 

7.30055E+12 

IB 

0. 

4.46145EU2 

19 

0. 

6.08379E+13 

20 

0. 

1.2 8648E+11 

21 

0. 

7 . 77419E*11 

22 

0. 

1. 80000E+12 

23 

0. 

7.00000E+13 

24 

0. 

6. OOOOOE+12 

25 

0. 

6. OOOOOE+12 

26 

0. 

1. 05485E+11 

27 

0. 

3.25859E+15 

28 

7.09957E-04 

2. i 3818E+00 

29 

0. 

2. 33476E*! 1 


MIXTURE MOLECULAR WEIGHT 28.21038 TOTAL ENERGY EXCHANGE RATE 4.05133E+06 MASS FRACTION SUM 0.99999999 

(CAL-CM»*3/GM»»2/SEC> 


RHO 

T 

CH4 

CH3 


02 

H02 

CO 


DERIVATIVE 
0.13341E+37 
-0.11374E-01 
-0.20I49E+05 
-0.14061E-01 
0. 14061E-01 
0. 13669E-01 
-0.19227E-03 
0. 19201E-D3 
0. 


INCREMENT 

0 . 

0 . 

0. 

0. 

0. 

0. 

0. 

0. 

0 . 


RELATIVE ERROR 

0. 

0. 

0. 

0. 

0. 

0 . 

0 . 

0 . 

0 . 


VARI ABLE 

DERIVATIVE 

INCREMENT 

RELATIVE ERROR 

C02 

3. 

3. 

0. 

3 

D.5133BE-06 

0. 

0. 

CH20 

0. 

0. 

0. 

OH 

0. 

0. 

0. 

H2 

0. 

0. 

0. 

H20 

0. 

0. 

0. 

HCO 

0. 

0. 

0. 

H202 

0. 

0. 

0. 

N2 

3. 

0. 

0. 
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T ! MF 1.90582E-0A St: 


AREA 1.028326*33 SO CM 


AXIAL POSITION 3.1100036*01 CM 


FLUN PROPERTIES 

PRESSURE 1. 72905 

I ATI ) 

VELOCITY 157A13.il 

(CM/SECI 

DFNSITY 3.51599E-0A 

I GM/CM** 3) 

TEMPERATURE 1690.70 

(OtG Kt 

MASS FLOW RATE 5.6913PE+0A 

(GM/SECI 

ENTROPY 2.1A50 

(CAL/GM/OEG K) 

MACH NUMBER 1.9730 

GAMAA 1.2768 


INTEGRATION INDICATORS 

STEPS FROM LAST PRINT 51 

AVERAGE STEP SUE 0.12A33E-P5 * 

CONTROLLING VARIABLF CO 


RELATIVE ERROR 0.15A37E-DA 

PREDICTOR ITERATIONS 0 


CHEMICAL PROPERTIES 


SPECIES 

CONCENTRATION 
( MOLES/ CM* *3 ) 

MOLE FRACTION 

CHA 

5. 355A1E-07 

A. 29 A93E-02 

CH3 

7. 63777E-09 

6. i253AE-0A 

H 

5.15A50E-11 

A. 13330E-36 

02 

2. 399606-06 

1. 92AA3E -01 

H02 

9.191625-10 

7. '71A9E-05 

CO 

5.5A09AE-U9 

A. AA37 2E-0A 

C02 

3.2A9ABE-11 

2 .606025-36 

0 

7.3729AE-11 

5. 912956-06 

CH20 

7. 1 A73HE-08 

5. 732055-03 

OH 

2.2 10626-10 

1. 77287E-05 

H2 

2. 151266-09 

1.72527E-0A 

H20 

3.377A2E-08 

6. 718525-03 

HCO 

>.502Alt-U 

A. <-12826-06 

H202 

7.A55226-13 

5 • 0789 3E-08 

N2 

9.36207E-06 

7. 50319E-01 


NET SPECIES PRODUCTION RATE REACTION 

( M3LE/CM*»3/SEC I NUMBER 

-1.570A7E-03 l 

1.85196E-0A 2 

2.3T953E-05 3 

-1.53312E-03 A 

3.192556-05 5 

2.210A16-OA 5 

1 . AA899E-06 7 

2.52870E-05 8 

l.lb021E-03 3 

6.082375-06 10 

7.A5023E-05 U 

1.60685E-03 12 

2.575826-06 13 

1.067AA5-C7 1A 


15 

16 

17 

18 

19 

20 
21 
22 
23 
2 A 

25 

26 

27 

28 
29 



NET REACTION CONVERSION RATE 
(MOL6-CM**3/GM*» 2/SfcC I 
6. 16923E+01 
-9. A9360E-0 1 
-5.565756*02 
8 . 63 It 16+00 

i. uins+oA 
A. A3636E+02 
A. I 2629E+02 

1. 178 186 + 0 A 
9.765126*02 
1.93356E+00 
9. 78U5E+OG 
3.089536*00 
8.65A96F+01 
1 • 6A3256 + 0 2 
l . 2 0797E + 0 3 
A. A829AE+0 2 

2. A2892E-01 
A. A50A8E-0 1 
1. A15O7E+0O 
9. l73**8c+02 
8. 80307E +0 2 
1 . 2301 1E*0 1 
2. 682756*01 
3.28712E+00 
9. 81516E+00 
1. 1A376E+01 
5.62737E-03 
1.A38576-03 
1. 175A7E+01 


RAT' CONSTANT 
ICGS UNITS) 
1. 5A509E*ul 
7. 1 0833E + OA 

2. t A120E+15 
3 . >25 375*07 
7. 50000E ♦ 10 
2.05365E+12 
1. 29372E+12 
1.2 A365E+13 
9. 77179E+11 
1.601575*12 
A. 602505*12 

3. 118815*11 
1.900006*13 
5.51A17E+12 
9.A51A6E + 12 
1.051655 + 13 
7.A01A3E +12 
A.52310E+12 
6. 167866+13 
l. 65288E + U 
8.2A21AE+11 
1.8 OOOOE + l 2 
7.000006+13 
6. OOOOOE + 1 2 

6. 000005 + 12 
1. S3766E+11 
3. 03A1AE+15 

7. 3 80725 + 00 
2.710135+11 


MIXTURt MOLECULAR HEIGHT 


23.19756 


TOTAL ENERGY EXCHANGE RATE -7.758626+08 
ICAL-CM** 3/GM**2/SECI 


MASS FRACTION SUM 0.9999996T 


VARI 

V 

RHO 

T 

CHA 

CH3 

H 

02 

H02 

CO 


ABIE 


DERIVATIVE 
-0.199336*37 
-0. 16A29E+0Q 
0.87G61E+06 
— C . AA66 6E + 0 1 
0.526736*30 
0.67677E-02 
—0. A360A6+0 1 
0.908016-01 
0. 628676+00 


INCREMENT 
-0. 21A21E+01 
-0. I S969E - 06 
0. 99boAE+00 
-0.512026-05 
O.^NOaPE-OA 
C. 710A7E-08 
-0. A9985E-05 
0. 10A10E-36 
0.712i5E-06 


RELATIVE ERROR 
0. 2193DE-07 
0. i4b2AE-07 
0.93622E-07 
0.AJ379E-06 
0. 70957E-05 
0.3O371E-OA 
0.953156-07 
0. 902356-05 
0.15A87E-0A 


VARIABLE 

C32 

0 

CH23 


H2 

H20 

h:o 

H202 

N2 


DERIVATIVE 
3.A1211E-02 
0.719235-02 
0. 32993E+01 
0. 17299E-01 
0.21 1905+00 
0. AS 7316+01 
0. 73250E-02 
3. 33359E-03 
0. 


INCREMENT 
0.A656AE-08 
0.82619E-08 
0.37958E-05 
0.19A32E-07 
0. 2 AO 19 E-Ov 
0.323555-0 C- 
0. 737906-08 
0.151566-0' 
-0. 


RELATIVE ERROR 
0.19933E-3A 
0.1553SE-0A 
0. 125906-05 
0.UA56E-0A 
0.1305 LE-OA 
0. 30807E-05 
0.303A9E-0A 
0.211 75E-03 
0. 


TIRE 2.22 3A6E-0A SEC 


AREA 1 . 057025+93 SO CM 


AXIAL POSITION 


3.A9997E + 0L CM 


FLOW PROPERTIES 


INTEGRATION indicators 


PRESSURE 
( ATM I 
VELOCITY 
(C«/S6C) 
ULNSITY 
(GM/LM**;) 
TEMPERATURE 
I DFG K I 

MASS FLOW RATE 
I GM/ S l-C ) 
ENTROPY 
(CAL/GM/UEG K) 
MACH NUMHrR 


U7300A 

157A11.87 

3.A2061E-0A 

1735.81 

5.691A5E+0A 

2.1590 

1.9A6A 


STEPS FROM LAST PRINT 27 

AVERAGE STEP SUE 0.12195E-C5 

CONTROLLING VARIABLE CO 


RELATIVE ERROR 
PREDICTOR ITERATIONS 


0.27813E-05 

0 


,AM«A 


1.2763 



SPECIES 


CH4 

CH3 

H 

02 

H02 

CO 

CQ2 

0 

CH20 

OH 

H2 

H20 

MCO 

H202 

H2 


Z ONCENTRAT I ON 
( M0LES/CM*+3> 
4.38649E-07 
2 « 04270E-08 
2.B3059E-10 
2.25360E-06 
3.12822E-09 
2.392506-08 
1. 693766-10 
2.89766E-10 
1.19976E-07 
7*178 39 E-10 
9,165946-09 
1.686D2E-07 
3.06641E-10 
S. 094526-12 
9* 10B09E-06 


MIXTURE MOLECULAR WEIGHT 


DERIVATIVE 
D.21270E+07 
-0.522406+00 
0*237626+07 
-0.129296+02 
0.250686+01 
0* 642356-0 1 
-0.12798EO2 
0*3931 2E+00 
0.402076+01 


CHEMICAL PROPERTIES 


MOLE FRACTION 

3. 611376-02 
1.6B174E-Q3 
2* 33041E-05 
l. *55386-01 
2. 57545E-04 
L« 96973E-03 
1* 39447E-0S 
2* 385626-05 
9*«7759E-03 
5.90992E-05 
6. 722976-04 
1. 36B09E-D2 
2 • 5245 56-05 
5.O1753E-07 
7* 49B63E-01 


SET SPECIES PRODUCTION RATE 
tM0Lc/CM.*3/S=C) 
-4.42251E-03 
8*5747 1E-D4 
2* 1972 3E-05 
-4. 377655-03 
1. 344706-04 
1.37533F-03 
i . 13334E-05 
1. 682185-03 
2.15630E-03 
4* 021 46E-05 
4.41L95E-04 
4. B5094E-03 
2.20777E-05 
1* 00850E-Q6 
0* 


26.16166 TOTAL ENERGY EXCHANGE RATE 

<CAt-CM*+3/3M*»2/SEC) 


REACTION 

NUMBER 

1 

2 
3 


6 

7 

3 

9 

10 

11 

12 

13 

14 

15 
15 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 
29 


HON COVERS 10 i KATt 

RATH CDNSIANl 

-CM*«3/GM*»2/SEC) 

tc ;s uni rsj 

-1* 26010E+0? 

4.006885+01 

-1-595496 + 01 

1. 16917E+03 

-2. 984676+03 

2. 1 2473E+ 15 

5*075366+01 

1* 2 01405+08 

2.950775+04 

7 » 500005 +10 

2.263336+03 

2* 25502E+12 

i* 503176 + 03 

1.388966+12 

3*417286+04 

1.30162E+13 

6. 025966+03 

1.108236+12 

3. 250906+01 

1.727456+12 

1*317! 3E+02 

4. 78735E+12 

4.61082E+01 

3.1 4299E+1 1 

9. O1164E+02 

1. » OOOOE +1 3 

1.625256+03 

5. 59998E+12 

7* 140746+03 

9.701585+12 

3. 27392E+03 

1.101BSE+13 

5. 69499E+0C 

7.499346+12 

8. 621706+00 

4.58293E+12 

4.6359BE+01 

6.24945E+13 

6. 64838E+03 

2.088576+11 

5.14216E+03 

B. 7 0672c *11 

1. 505386+02 

1. SuOOOE+12 

5. 29744S+C2 

7. OOOOOE +13 

4* 647P2E+01 

6* OOOODE + 1 2 

l. 14937E+02 

6. 000005+12 

1.41919F+02 

2.1 9489E+11 

1.07621E-01 

2. 3372E+15 

1. 194776-03 

1. 79765E+U1 

1. IOOt'bE + 02 

3. i 1420E+1 1 


-2*265525*09 


MASS FRACTION SUV 0*9999 )966 


INCREMENT 
0. 93730E+00 
-0.22120E-06 
0.10041E+D1 
-0. 546616-05 
0* 10566E-05 
0* 25643E-07 
-0.541U6E-05 
0. 16840E-06 
0. 16894E-05 


RELATIVE ERROR 
0* 301 05E-O8 
0. 11550E-07 
0* 247 52F-07 
0* 1 4i 86E-06 
0.91847E-06 
0.41097E-04 
0*264485-07 
0* 746045-05 
0*27813E-05 


VARI ABLE 
C 02 
0 

CHZD 


H2 
H20 
H CO 
H202 
N2 


DERIVATIVE 
0* 33133E-01 
0. 491736-01 
0* 630 3 BE +0 1 
0* 117576+00 
0* I2999E+01 
0*1419 26 + 02 
0*6454 3E-01 
0.29483E-O2 
0. 


INCREMENT 
0* 1 388 1 E -0 7 
0*206426-0 / 
0* 267956-05 
0*487446-07 
0*54225 E-0 6 
0.59900E-06 
0.26690E-07 
0.79733E-09 
- 0 * 


RELATIVE ERROR 
0.49584E-05 
0.944905-05 
0* 26765E-06 
0*18 1 38E-04 
0* 2523 IE-05 
0*595196-06 
0.26756E-04 
0*447 89E-03 
0. 


TIME 2*541096-04 SEC 


AREA 1.296886*03 SO CM 


AXIAL POSITION 4.00002E+01 CM 


FLOW PROPERTIES 


PRESSURE 
I ATM > 

veld: ity 

(CM/SECl 
DENSITY 
( GM/CM** 3) 
TEMPERATURE 
t DEC K) 

MASS FLOW RATE 
IGM/S6C) 
ENTROPY 
t CAL / GM/DEG K) 
MACH NUMBER 


1.73213 
157347. 14 
2. 79004E-04 
2079.27 
5.693356+04 
2.2635 
1.7533 


GAMMA 


1.2304 


INTEGRATION INDICATORS 
STEPS FROM LAST PRINT 
AVERAGE STEP SIZE 
CONTROLLING VARIABLE 


47 

0* 684 88E-06 
CH4 


RELATIVE ERROR 
PREDICTOR ITERATIONS 


0. 22026E-04 
3 


SPECIES 


CH4 

CH3 

H 

02 

H02 

CD 

C02 

0 

CH20 

OH 

H2 

H20 

HCO 

H202 

N2 


CHFMICAL PROPERTIES 


CDNCENTRAT ION 
( M0LES/CM«*3» 
2.198i2E-O0 
5*914^66-08 
2.042b2t-0fi 
1. 360246-06 
2*974356-09 
3. 485626-07 
1.616306-00 
2 » 356636-OB 
4.348116-08 
5*5273 lt-08 
&• 41 6906 -OB 
7,043686-07 
3 *879186-09 
7.10913E-12 
7.429076-06 


mol: fraction 

2. 16517E-03 
5. 72 72 96- 03 
2.012206-03 
1 • 33985E-01 
2* 830976-04 
3.433366-02 
l* 59207E-03 
2. 32 I30E-03 
4. 262936-03 
5. 444456-03 
6. 32 070E- 03 
6.93799E-02 

3. 52 10. 3E -04 
7. J02 5 6E-07 
7. ^1 770E-01 


NET S 3 cCI tS PRDDUCTIDN RATE 
( MDLE/CM**3/SEC ) 

-1 * 3 66976-02 
-1. 829696-02 
5* 7? 766E-03 
-6. 466776-02 
-9*681 28E-04 
4.250276-02 
6*664536-03 
1. 261906-02 
-1*64 655 E-02 
1.844236-02 
-i. 542675-03 
6.15599E-02 
-7.15077E-04 
9*580766-06 
0. 


REACTION 

NUMBER 

1 

2 


5 

7 

8 
9 

ID 

11 

12 

13 

14 

15 

16 
17 
lb 

19 

20 
?1 
22 

23 

24 

25 

26 
27 
29 
29 


NET REACTION CONVERSION RATE 
( MOLE -CM**3/GM**2/S£C) 
-7.903406+04 
-8.401276+01 
-2.540216+04 
4. 770916+03 
7. 620176+04 
1*5186 4E +04 
1.172586+04 
2. 2781 1E+05 
7. 092766+05 
2.44087E+04 
1. 50504E +05 
B. 084376+04 
3. 344516+05 
7.027926+04 
3.56450E+O5 
1.957036+05 
9. 639146+03 
1. 381606+04 
6.9629BE+04 
4. 548906+05 
8. 364266+04 
1. 90965E+02 
5. 277 73E + 04 
5.210206+03 
1 • 22240E +04 
6 • 660 JOE + 0 1 
7. 382 50E+02 
-3. 762926+01 
-2.927+7E+04 


RATfc CONSTANT 
(CDS JNI TSJ 
5* 66964E + 03 
2*3 8B54E + 06 
2*i2538E+l5 
7. 34604E+08 
7*6 GOODE + 1 0 
3.96792E+12 
2* 1 578BE+12 
1*726596+13 
2.418985+12 
2. 76200E+12 
6.U172E+I2 
3.29716E+U 
1. )CO00t+13 
6. 1 6286E+12 
1*1 54656+13 
l. 49720E+13 
8*207826+12 

5. ^15096+12 

6. -.39856 + 13 
8.992235+11 
1.234156+12 
1. GOOOE+i 2 
7 • OOOOOE + 1 3 
6. 000005+12 
6* OOOOOE +12 
1. 3075E+12 
1. 772125+15 
4.415536+03 

7. * 7404E+ 1 1 



MIXTURE 

HOLECULAR HEIGHT 

27.46216 

TOTAL ENERGY EXCHANGE RATE -5. 

tCAL-CM»*3/GK*»2/SECI 

178066*13 HASS 

FRACTION sum 

1.00000054 

VARIABLE 

V 

RHO 

T 

CH4 

CH3 

H 

02 

H02 

CO 

DERIVATIVE 
-0.26436E+09 
-0.536476*01 
0.473446+38 
-0.4B995E+02 
-0.655796*02 
0.205296*32 
-•0. 231786*03 
-0.34699E+01 
0.152346+03 

INCREMENT 
-0.12834E+02 
-0.26128E-06 
0. 230206+01 
-0.24160E-05 
-0.31588E-05 
0. 9977BE-06 
-O.H255E-04 
-0. 16909E-06 
0. 742666-05 

RELATIVE ERROR 
0. 865166-07 
0.73088E-07 
0.24559E-06 
Q.22026E-04 
0.30385E-0S 
0.73094E-05 
0.18244E-06 
0.65731E-05 
0.11337E-05 

VARIABLE 

C02 

3 

CHZD 

OH 

H2 

H20 

HCO 

H202 

N2 

DERIVATIVE 
0.2389TE+02 
3.45229E+02 
-0.59087E+O2 
0.661006*02 
-O.55272E+01 
3.22064E+03 
-0.256306*01 
0. 34698E-01 
3. 

INCREHENT 
0.11511E-05 
0. 213856-05 
-0.28876E-05 
0. 331536-05 
-0.25374E-06 
0. 106966—04 
-0. 1 1532E-06 
0. 110526-0K 
-0. 

RELATIVE ERROR 
0.19943E-05 
0. 74691E-04 
0. 948706-OS 
0.43277E— 04 
0. 64559E-36 
0.50794E-06 
0.920396-04 
0.107146-02 
0. 
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DISTANCE-PRESSURE VERS I DM 


SEVERAL :H6MI SAL UVEITIS PROGRAM 


NASA LEWIS RESEARCH CEV TER 


MET HANE-AI R COMBUSTION 


(ASSIGNED PRESS JRE I 


CASE 7 


REACTION REACTION 

NJM36R 


1 

2 

3 

4 

5 
5 

7 

8 
9 

10 

LI 

12 

13 

I* 

15 

IS 

17 

18 

19 

20 
21 
22 
23 
>4 

25 

26 
27 
20 
29 


CH4 

CH4 ♦ 0? 

H * 32 

CO ♦ 02 

CH3 * 32 

H ♦ CH4 

0 ♦ C HA 

UH ♦ CH4 

H ♦ 32 

0 ♦ H2 

H2 * 3H 

CO + OR 

CH3 ♦ 3 

CH20 * H 

CH20 ♦ 3H 

CH20 ♦ 3 

HCO ♦ 3 

HCG ♦ DH 

HCO * H 

M * HCO 

HCO ♦ 02 

H02 ♦ H32 

H * H32 

0 * H32 

OH ♦ H02 

M ♦ H232 

H ♦ ON 

M ♦ 32 

0 ♦ H20 


- CH3 * H 

= CH3 ♦ H02 

* H02 ♦ M 

« C02 ♦ 0 

= CH20 * OH 

* CH3 ♦ H 2 

* CH3 ♦ 3H 

* CH3 ♦ H2C1 

■ OH 4-0 

* OH ♦ H 

* H2D * H 

= C02 ♦ H 

* CH23 + H 

= HCO ♦ H2 

= HCO * H23 

* HCO ♦ OH 

= CO * OH 

* CD * H20 

= CO * H2 

= H CO 

* CO ♦ H 02 

* H2D2 4 02 

■ OH 4 OH 

s OH 4 J2 

* H20 4 02 

= OH 4 OH 

* H2U 4 M 

« 3 4 0 

* OH 4 OH 


REACTION RATE VARIABLES 


A 

n 

ACTIVATION 

ENERGY 

3.600006*14 

0. 

103000.00 

1.000006*13 

0. 

63000.00 

1.590006*15 

0. 

-1000.00 

1 • 50000E* 13 

0. 

41000.00 

7.5 OOOOE* 10 

0. 

0. 

5. 90000E* 13 

0. 

11B00.00 

2. 00000E+ 13 

c. 

9200.00 

7 .20000E* 13 

0. 

5900.00 

1 .25000E* 1A 

0. 

16300.00 

2.950006*13 

0. 

9800.00 

2.1 OOOOE* 13 

0. 

5100.00 

4.20000E* 11 

0. 

1000.00 

l • 9 OOOOE* 13 

0. 

0. 

1.000006*13 

0. 

2000.00 

7.300006* 10 

0.7000 

1000.00 

4.000006*11 

0.6000 

4000.00 

1.800006*11 

0.5000 

0. 

l.iOOOOE+11 

0.5000 

0. 

1.500006*12 

0.5000 

0. 

2.000006*13 

0.5000 

26600.00 

1. 30030E* 11 

0.5000 

5400.00 

1* BOOOOE* 12 

0. 

0. 

7.00030F* 13 

0. 

0. 

6.00000E* 12 

0. 

0. 

5.000006*12 

0. 

0. 

l • 1 7000E* 17 

0. 

45500.00 

7.500006*23 

-2.6C00 

0. 

2 .750006* 19 

-l.OOOu 

118700.00 

5. 75000E* 13 

0. 

18000.00 


4 


M(CH4 
H(CO 
Mt H20 
MIN2 


• 3 1 * 

• 3) * 
,26) * 
,27) » 


5.00000 
2.30000 

6.00000 

I.50C00 


ALL THIRD BODY RATIOS ARE 1.0 EXCEPT THE FOLLOWING 


M(02 , 3) 
H ( C02 , 3) 
M( H23 ,27) 


* 2.00000 

= 7.50000 

= 20.00000 


M( 02 ,26) * 
M(H2 ,31 ~ 
M( H232 ,26) * 


0. 78000 M( 32 

5.00000 M(H2D 

5.60000 MIN2 


,27) « 1.60000 
» 3) * 32.50000 
. 3) * 2.00000 


MINIMUM STEP SIZE 0.100006-03 CM 

INITIAL STEP SIZE 0. 20000S-01 CM 


INTEGRATION CONTROLS 


MAXIMJN STEP SIZE 0.20000E400 CM 
MAXIHUM RELATIVE ERROR C.00010 


** ASSIGNED VARIABLE PROFILE •• 


THE PRESSURE IS CALCULATED BY INTERPOLATION FROM THE FOLLOWING TABLE 


STATION 

1 


9 

10 
a 
12 
13 
1 A 


AXIAL DISTANCE I C * ) 

0. 

5. OOOOOt+OO 
1.00000E401 
1.50000E40i 
2.00000=401 

2.50000E4Q1 

2.75000E401 
3.00000E401 
3.2 5000E*Q1 
3.50000E401 
3.550006-401 
3.600006401 
3 • 6500064-01 
3. 70000E401 


PRESSURE I ATM 

1. 733036+00 

1.73132 E4-0C 

1.735986*00 

1.745406*00 

1.7591DE400 

1.78070E4-00 

1.001036400 

I.B25376400 

1.871 8DE400 

1.992436*00 

2.0A700E4O0 

2.1A353E-400 

2.36787E400 

3.10D2/E400 


THE FOLLOWING SPECIES hILL 8F NEGLECTED FR3M ALL ERROR CONSIDERATIONS 


CO 2 


3H H02 0 

H202 CH3 


• • INITIAL CONDITIONS •* 

TIME 0. SEC AREA 1.000006-01 SQ M 


AXIAL POSITION 0. M 


FLOW PROPERTIES 

PRESSURE 
( N/N**2) 
VELOCITY 
l M/S EC I 
DENSITY 
(KS/M««3 ) 

temperature 

(DEG K ) 

MASS FLOW RATE 
( KG/ SEC l 
ENTROPY 
( JOJLE/KG/DEG 
MACH NUMB i-R 


1.75292E405 

1.574136*03 

3. 615596-01 

I.6A500E403 

5.691396*01 

8.9151 5E 403 
K) 

2.000006400 


GAMMA 


1 * 277726*00 


INTEGRATION INDICATORS 

STEPS FROM LAST PRINT 0 

AVERAGE STEP SIZE 0. 

CONTROLLING VARIABLE 

RELATIVE ERROR 0. 

PREDICTOR ITERATIONS 0 
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chemical proplRTIsS 


SPECIES 

CH6 

CH3 

H 

02 

H02 

CO 

C02 

n 

CH20 

OH 

H2 

H2Q 

HCO 

H202 

M2 


C3NC6N r«AT ION 
l *0LES/M*O> 

MOL - FRACTION 

NET SPECIES PRQOUCT I 
l MOLE /N+*3/S5C 

6.3 7o52c-06 

6.976COE-02 

-5.003976-03 

D. 

0. 

5.083976-03 

0. 

0, 

5.01656E-03 

2.551616-03 

1.990726-01 

-6.951 666-05 

3. 

0. 

&.96238E-05 

3. 

0. 

0. 

3. 

0. 

0. 

3. 

0. 

1.8561 8E-07 

3. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

3. 

0. 

0. 

D. 

0. 

0. 

0, 

0. 

0. 

9.627256-03 

7. S-U60E-01 

0. 


REACTION 

NUMBER 

1 

2 


5 

6 
7 
3 
9 

10 

11 

12 

13 

16 

13 

16 

17 

18 

19 

20 
21 
22 
23 
26 

25 

26 
27 
20 
29 


MET REACTION CONVERSION RATE 
t MOUE-M**3/KO»*2/SEC) 
3.83596E-02 
5*3 1069E-06 
0* 

0, 

0* 

0. 

0. 

0. 

0. 

0. 

0* 

0* 

0, 

0. 

0. 

0. 

0. 

0* 

0. 

0* 

0. 

0. 

0. 

0. 

0* 

0. 

0. 

7.09957E-07 

0. 


RAT' CONSTANT 

icss jni rsi 

7 • 861616 *“00 
6.265836+06 

2.. 5901E+15 4 

5. 7165&5+07 
7. 5 0000 6 MO 

1. M6697E+12 
1.19880c *>12 
1 *i 86366 *1 3 
8.53770E+11 

1.. 76705 + 12 
6.612135+1 2 
3 • 09309E+1 1 
1 « 9C00Q6 *1 3 
5.623506+12 
9*1 65 116+12 
1.0 CO 766+1 3 
7 .300556 +12 

6. '»6165E + 12 
6. >03796+13 
1.286606+11 
7. 776196+11 
1 . 800006+12 
7. 000006*13 
6. COOOE+12 
6. 000006+12 
1.056056+11 
3.258596+15 

2. 30186+00 
2. 33676E+1 l 


MIXTURE MOLECULAR HEIGHT 


VARIABLE OERI NATIVE 

V -0.767326+01 

RHQ 0. 761086-07 

T 0.596626-01 

CH6 -0.893276-07 

CH3 0.093276-07 

H O.001O0E-O7 

02 -0.12216E-08 

H02 0.12198E-08 

CO 0. 


28.21038 


TOTAL ENERGY EXCHANGE RATE 1.695036+07 MASS FRACTION SUM 

l J'JULc -M*»3/<3*»2 / SEC ) 


RELATIVE ERROR 


VARIABLE 

C 02 

3 

:h 23 

OH 

H2 

MO 

h:o 

N202 

M2 


DERIVATIVE 

0. 

3.326166-11 

3. 

0. 

0. 

3. 

3. 

0. 

0. 


INCREMENT 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

0, 

0. 


0.99999999 



TIME 1.91 107E-06 ScC 


AREA 1.000095-01 SO M 


AXIAL POSITION 3.00000E-01 M 


FLOW PROPERTIES 


I MT53RATI ON 1NOICATORS 


PRfcSSURF 

(N/N** 2 ) 

VELOCITY 
( M/SEC I 
OENSKTY 
(KG/M**3 ) 
TEMPERATURE 
<OES K) 

HASS FLOW RATE 
l KG/ SEC) 

ENTROPY 

( jnJLE/KG/nEG <1 
MACH NUMBER 


1.869S6E+05 
1.557156*03 
3.65668E-01 
1.716056*03 
5.691396*01 
8.982166*03 
1.93 769E*00 


STFPS FROM LAST PRINT 
AVERAGE STEP SI2E 
CONTROLLING VARIABLE 


51 

0. 19S60E+00 
HCO 


RELATIVE ERROR 0.213206-06 

PREDICTOR ITERATIONS 0 


GAMMA 


1.276116+00 


SPECIES 

CH6 

CH3 

H 

02 

HU2 

CO 

C02 

0 

CH20 

OH 

H2 

H20 

HCO 

H202 

n2 


: oncentrat ion 

( M0L6S/M»*i> 
5. 666226-06 
9.90C65E-O6 
7.680/6E-C3 
2. 603006-03 
1.126C7E-0O 
7.56? 70E-06 
6* 736&6fc -00 
l .0655 16-07 
0.26577E-O5 
2.92710E-07 
2.901 i0C-06 
9.9136 6fc-0 5 
7.825936-00 
3.R1377E-10 
9.73135E-U3 


CHEMICAL PROPCRTIcS 


MOL* fraction net 

6.20166E-02 

7. ^99366-06 
5. >25266-06 
1.015696-31 
8.671576-05 

5. r 3610E-O6 
3. c.56066-06 

8 . ^ 19796-36 

6. ;-6 1 i 36-03 
C. *.'53086-05 
2. 2381 9fc-u6 

7. ^67806-03 
6 • >372 56-36 

6. 79 i UE-U0 

7. : 0 7 1 76-01 


ECItS PRODUCTION RAT: 
IM3 Lc/M**3/SECI 
-2.1 85106+00 
3.0628IE-01 
6.300616-03 
-2. 112696+00 
6 . 607 13E-02 

з. 5^7506-01 
2.697005-03 
*♦.600626-03 
1.517206*03 
i. 03375^-02 
*.211616-01 
2.26C63E +00 
«♦. 36 790F-O3 
1. 636225-06 

и. 


REACH DM 
NU M 56 R 
1 
2 
3 
6 
5 


5 

9 

10 

11 

12 

13 

16 

15 

16 
17 
13 

19 

20 
21 
22 
23 
26 


27 

28 
29 


N5T REACTION CONVERSION RATE 
l MOLE-M* *3/KG**2/ bEC ) 

3. 35566E-02 
-1.606256-03 
-0. 060066 -01 
1.350ASE-02 
1. 291526+01 
6.600006-0 l 
5.862 386-0 l 
1.503166+01 
1 • 6963 2E + 0C 
3.660376-03 
1.579606-02 
5.190136-03 
1.512736-01 
2,637506-01 
1. 73331E+OC 
7. 103036-01 
6 . 555 1 6L ; -06 
7 . 31 5 35C-U6 
2 . 796 VJE -03 
1. 63357E+OC 
1.236966+00 

1. 702 73E-C2 
6* 52678E-G2 
5. 376966-03 
1 .670766-02 
1. 59536E-U2 
1.037576-05 

2. <.58 9 76-0 0 
2.028^26-02 


RATI CONSTANT 
I COS UNITS) 
2. 39815E *0t 
9. 6 76 916+06 
2.131836+15 
9.&U5635+07 

7. 5 00006 + 10 
2.16795E+12 
1. 366966+12 
1. 276266+13 
l .'' 69556 + 12 

1.6 71076*12 
6. <06566+12 
3. 132525*11 
1. *00006+13 

5. .6273E + 12 
9.592106+12 
1. 079836+1 3 
7.656556*12 
6.5S678c*i2 

6. . 13796+13 
1. 87626 + 1 i 

0 . > 02 66 c + 1 1 

1 . bOOOOE* 12 

7. 00006+13 
6. jCOOOc +12 
6 • 0 00006+ 12 
l.»? 77115+11 
2.919316*15 
1. 223635+ui 
2. 932555+11 
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Reproduced from 
best available co 


MIXTURE MOLECULAR w F- 1 GHT 


ZB. 1)374 


mm ENERGY EXCHANGE RATE -4.03B35E+09 
{ JDULE-M»*3/KG»o2/SEC) 


MASS FRACTION SUM 0.99999969 


» 


CH4 

CH3 


H02 

CO 


oerivat ive 

-3.211 74E+33 
0* 29964 t - 3 6 
0. 9831 CE +0 1 
-0. 38396E-34 
0. 53820E-35 
0.7&976E-37 
-0. 37124E-34 
0- 77443E-36 
C'.6233bE-05 


INCREMENT 
-0.V6723g.02 
0.36227E-07 
0. 12070E + 01 
-0. 48695E-05 
0.67855E-06 
0. 903396-38 
-0. 470856-05 
G.98535E-07 
0. 782aO£-U6 


RELATIVE ERROR 
0.22862E-07 
0. 57501E-07 
0. 5i S35E-07 
0.16567E-06 
0.25000E-05 
3. 2 462 8E -04 
0.34525E-07 
0.13466E-06 
0.50641E-05 


V ARI ABLE 
C 32 
0 

CH23 

OH 

HZ 

HZO 

HCO 

9202 

N2 


DERIVATIVE 
3.43377E-07 
3.8J842E-07 
0.2666OE-O4 
0.1 3233E-06 
3.212 7 3E-05 
D. 39373E-04 
0.767546-07 
0. 25232E-08 
3 . 


INCREMENT 
3. 54972E-03 
0. 1 02 1 ME-0 7 
0. 339 33E-0 5 
0.22660E-0 ' 
0. 26750E-06 
0.49904E-03 
0.929796-0 
0. 15237E-09 
- 0 . 


RELATIVE ERROR 
0.661 B7E-05 
0. B7874E-05 
0.3031 3E-06 
0.71072E-05 
0. 444696-05 
0.102326-35 
0. 21 3 ?0£-04 
0. 31923E-33 
0. 


time 2. 33 390E-04 SEC 

AREA 

1.00160E-3I S3 M 

AXIAL POSITION 

3 . 65000E-01 .M 

FLOW PROPERTIES 



INTEGRATION INDICATORS 


PRESSURE 

2.399846+05 


STEPS FROM LAST PRINT 

32 

1 N/M + + 21 





VELDCI TV 

1.46043E+03 


AVERAGE STEP SIZE 

0. 4 71 37E-01 

(M/SEC I 





DENSITY 

3.89082E-01 


CONTROLLING VARI ABLE 

HCO 

( KG/M++3 I 





TEMPERATURE 

2.055816+03 




(DEG K I 





MASS FLOW RATE 

5.69139E+01 




l KG/SEC I 





ENTROPY 

9. 30386E+03 


RFLATIVE ERROR 

0.69549E-04 

IJ3JLE/KG/DEG K> 





MACH NUMBER 

1. 6467 IE + 00 


PREDICTOR ITERATIONS 

0 

GAMMA 

1 • 27631E+00 





CHEMICAL PROPERTIES 


SPECIES 

; oncentrat ion 

t M0LES/M..3 | 

CH4 

1.27394E-04 

CH3 

1.268U7E-04 

H 

1 .273146-05 

02 

2.1 5298E-03 

H02 

5. 988926 -06 

CO 

2 .9 0293E-04 

C02 

6. 19770E-06 

0 

1.13367E-05 

CH20 

1 . 309806-04 

OH 

2.T7538E-05 

H2 

7.51074E-05 

H20 

6.961196-04 

HCO 

4. 735076-06 

H202 

4. 14L206-09 

N2 

1.0 36U 16-02 


MIXTURE MOLECULAR WEIGHT 


VARIABLE DERIVATIVE 

V -0. 194486+35 

RHO 0.76145E-04 

T 0. 49U69E+03 

CH4 -O. 73114E-33 

CH3 0.i32t;3E-03 

H 0.1U665E-33 

02 -0.1507 2 6-02 

H02 -0.217626-34 

CO 0. 121986-02 


MOLT FRACTION 

NET SPECIES PRODUCTION RATE 

REACTION NET REAC 

TION CONVERSION 

RATE RATE CONSTANT 


I M0LE/M..3/SEC 1 


NUMBE 

R IMDLE 

-M..3/XG++2/SEC) 

(CGS UNI TSI 

9. 0812 96-03 

-5. 291 01E+01 


1 


-5 . 293056 +0 1 

4. 26614E+03 

9.03939E-03 

5. 843086+00 


2 


-1. 91961E-01 

2. 00716E + 05 

9.07554E-U4 

6 . O6U24E+03 


3 


-4.408 38E + 01 

2.3 3098E + 15 

1. 53475E-D1 

-a. 56467E+01 


4 


2. 89l;i3£+00 

7 • 0 0620E + 08 

4. 26919E-04 

-1 . 23659E ♦ DO 


5 


1.35257E+02 

7 • 5 0000E +10 

2.U6935E-32 

6. 931 23E+01 


6 


3. 13736E+01 

3, 84071 E +12 

4. 41 80 IE-04 

3.07359E+00 


7 


1 . 808516+01 

2. 10375E + 12 

7. 86 75 1 E-04 

6.466736+00 


3 


3.53170E+02 

l • 69869E+1 3 

9.33686E-U3 

-2. 57899E + 01 


9 


4. 00099E+02 

2. 312526*1? 

1. 978436-03 

1.54780F+01 


10 


1.01123E+01 

2.68826E + 12 

5. 35401E-03 

1 . 07797E+01 


11 


4.46193E+01 

6. 326256+12 

4. 9622 7E-02 

1.016776+02 


12 


1. 741 13E+01 

3. 28807E+11 

3. 37538E-U4 

4. 70935E-01 


13 


1.75652E+02 

1.9 OOOOE + 13 

2. T5133E-07 

1. 986436-03 


14 


6. 74820E+01 

6. i2891E+12 

7. 38518E-01 

0. 


15 


2. 743056+02 

1. i 4256E+13 




15 


1. 39482E+02 

1.460B9E+13 




17 


2. 81740E + 00 

8. 16139E + 12 




18 


4.329646+00 

4. 98752E+12 




19 


2. 70834E+0 1 

6. B0116E+13 




23 


3.62523E+02 

8. 26240E + 1 1 




21 


8. 14050E+01 

1. 20900E + 12 




22 


4. 26453E-01 

1. .OOOOE + 12 




23 


3.525446+01 

7. U OOOOE + 13 




24 


2. 61 61 2E +00 

6. OOOOOE + 1 2 




25 


6.57435E+00 

6. OOOOOE +1 2 




26 


4.13331E-01 

1.70279E + 12 




27 


1. 47059E-01 

1. 82517E+15 




28 


-5.400826-03 

3.21782E+03 




29 


1.149666+01 

7. 1648E+11 

27.73562 

T0T4L ENERGY EXCHANGE 

RATE 

*1 .460766+ 11 MASS FRACTION SUM 

1.00003006 


I JOULC-M.+3/KG++2/SE 

Cl 





INCREMENT 

RELATIVE ERROR 

VARIABLE 

DERIVATIVE 

INCREMENT 

RELATIVE ERROR 

-0. 39447E + D3 

0.66301E-06 

0 02 


0.54091E-04 

0.10803E-05 

0.60749E-04 

0. 15 3516-05 

0.37566E-06 

0 


0. 1139 IE-03 

0.214 14 E— Od 

0. 117976-03 

0. 100046+02 

0.126396-05 

0H23 


-3 . 45 39 6E-03 

-0. 9 3319 E-05 

0.39734E-05 

-0. 19526E-34 

0.8181 4E-05 

OH 


0.27239E-03 

0.5 5009E-0 

0.88390E-D4 

0. 250626-05 

0. 240506-04 

H? 


0.16971E-03 

0. 39939E-0 ■ 

0. 595616-05 

0. 20898E-05 

0. 568396-04 

920 


0.178946-02 

0. 56687E-0 

0.301 TOE “05 

-0. 30894E-04 

0.1851 4E-05 

HCO 


3. 82873E-05 

0. 25557E-06 

0.69549E-34 

-0.420306-06 

0.225336-04 

9202 


3. 3495 8E-07 

-0. 18635E-09 

0. 34491E-03 

0. 24986E -04 

0. 85456E-05 

N2 


0 . 

-0. 

0 . 


IGCKP I 


END OF THIS CASE 


READ DATA FDR NEXT CASE 


106 



T IME-AREA VERSION 


GENERAL CHEMICAL KINETICS PROGRAM 


NASA LEWIS RESEARCH CENTER 


H2-32 LOW TEMPERATURE REACTION AT CONSTANT VOLUME {ADJUSTED RATES) CASE 8 


REACTION 

•IJMBER 


1 H2 

2 H2 

3 H 

4 0 

5 H 

5 H 

7 M 

8 H02 

9 HO 2 

10 H 

11 DH 

12 0 


M(H2 . 51 = 5.00000 

M1H20 . 5) = 32.50000 


REACTION 


02 

3 

H 

♦ 

H02 

OH 

= 

H20 

¥ 

M 

02 

* 

OH 

¥ 

0 

H2 

3 

OH 

¥ 

-1 

02 

3 

H02 

¥ 

M 

H32 

3 

OH 

¥ 

OH 

H202 

3 

OH 

¥ 

OH 

H02 

3 

H202 

¥ 

02 

H2 

3 

H202 

¥ 

H 

H202 

3 

H20 

♦ 

OH 

H202 

3 

H20 

♦ 

H02 

H20 

3 

OH 

¥ 

OH 


REACTION RATE VARIABLES 


A N 

1.00000E+ 14 0. 
2.10000E+ 13 0. 
1.25000E+ 14 0. 
2 . 96000E + 13 0. 
8. 500006+14 0. 
7.00000E+13 0. 
1.17000E+17 0. 
1.000006+12 0. 
8.50000E+ 12 0. 
3.18000E+14 0. 
1 .000006+ 13 0. 
S .750006+ 13 0. 


ALL THIRD BODY RATIOS ARE 1.0 EXCEPT THE FOLLOWING 


ACTIVATION 

ENERGY 

67000.00 

5100.00 

16300.00 

9800.00 

- 1000.00 

0. 

45500.00 

0. 

24000.00 

9000.00 

1800.00 

18000.00 


M(H2 

, 7) = 

2.30000 

M( 02 

. 5) » 

2.00000 

M ( 32 

. 7) » 

0.78000 

M(H20 

. 7) = 

6.00000 

MIH20Z 

. 7) » 

6.60000 





INTEGRATION CONTROLS 

MINIMUM STEP SIZE 0.50000E-04 SEC 

INITIAL STEP SIZE 0.150006+00 SEC 


MAXIMUM STEP SIZE O.IOOCOE+OO SEC 
MAXIMJM RELATIVE ERROR O.OO'OSO 


»» ASSIGNED VARIABLE PROFILE •• 

THIS IS A V=0 PROBLEM - AN ASSIGNED VARIABLE IS NOT REQUIRED 

THE FOLLOWING SPECIES WILL 8E NEGLECTED FROM ALL ERROR CONSIDERATIONS 
3 H OH HO 2 

THE VOLUME (DENSITY! WILL BE HELD CONSTANT FDR THIS CASE 

THE TEMPERATURE WILL BE HELD CONSTANT FOR THIS CASE 


•• INITIAL CONDITIONS »* 


TIME 0. SEC 


AREA 1 • 000006+00 SQ CM 


AXIAL POSITION 0. 


CM 


FLOW PROPERTIES 


INTEGRATION INDICATORS 


PRESSURE 

(ATM) 

VELOCITY 
(CM/ SEC) 
DENSITY 
(GM/CM++3) 
TEMPERATURE 
(DEG K) 

MASS FLOW RATE 

(gm/sec) 

ENTROPY 
(CAL/GM/DEG K) 
MACH NUMBER 


0.65789 

0. 

6.44320E-05 

773.15 


0. 


6.7684 

0. 


STEPS FROM LAST PRINT 0 

AVERAGE STEP SIZE 0. 

CONTROLLING VARIABLE 

RELATIVE ERROR 0. 

PREDICTOR ITERATIONS 0 


GAMMA 


1.3810 


CHEMICAL PROPERTIES 


SPECIES 

NASS FRACTION 

MOLE FRACTION 

NET SPECIES PRODUCTION 
1 MOLE/C M++3/SECI 

H2 

2.79028E-01 

8.60000E-01 

-1.48936E-16 

02 

7.20972E-01 

1. LOOOOE-Q1 

-1.48936E-16 

H 

D. 

0. 

1.48936E-16 

HO 2 

D. 

0. 

1. 489366-16 

OH 

D. 

0. 

0. 

H20 

0. 

0. 

0. 

0 

D. 

0. 

0. 

H202 

D. 

0. 

0. 


RATE 

REACTION 

NET REACTION CONVERSION RATE 

RATE CONSTANT 


NUMBER 

( M0LE-CH»»3/GM»»2 /SEC ) 

(CGS UNITS) 


1 

3.58755E-08 

1.1 5030E-05 


2 

0. 

7. 59590E + 11 


3 

0. 

3. 08543E+09 


4 

0. 

5 . 02437E+10 


5 

0. 

1.629656+15 


6 

0. 

7. OOOOOE+13 


7 

0. 

1.608786+04 


3 

0. 

1.00000E+12 


9 

0. 

1. 39711E+06 


10 

0. 

9.08566E+U 


11 

0. 

3.098756+12 


12 

0. 

4.69383E+08 
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MIXTURE MOLECULAR WEIGHT 


TOTAL E N£ RGY EXCISE RATE 
(Cal-:m*»3/gm*«2/seci 


HASS FRACTION SUM 


D£P I VAT IV? 

-0, 


RELATIVE ERROR 


DERIVATIVE 

0.23U5E-U 

0.23U5E-11 


INCREMENT 

0. 


RELATIVE ERROR 


- 0 * 231151 - 1 1 
-0.231 156-1 1 


TIME 3.0D00OE-01 SeC 


AREA 1.00000603 SO CM 


AXIAL POSITION -0. 


FLOW PROPERTIES 

PRESSURE 
I ATM) 

VELOCITY 
(CM/SEC) 
DENSITY 
(GM/CM**3| 
TEMPERATURE 
IDES K) 

MASS FLOW RATE 
(GM/SEC) 
ENTROPY 

I CAL /GM/ DEG K ) 
MACH NUMBER 


INTEGRATION INDICATORS 


STEPS FROM LAST PRINT 
AVERAGE STEP SIZE 


CONTROLLING VARIABLE 


RELATIVE ERROR 
PREDICTOR ITERATIONS 


2* 79028E-01 
7.20972E-01 
2 * 68006E-16 
5.66724E-1 1 
1* 178516-17 
i .141086-11 
4*2527 IE-1 7 
l. 12929E-10 


8* uQOOOE-Ol 
1.40000E-01 
1. 65202E-15 
1* 25512E-11 
4. 305S1E-18 
3* 93572E-12 
1. 65151E-17 
2* 06284E- 1 1 


CHEMICAL PROPERTIES 

NET SPECIES PRODUCTION RATE 
I M0LE/CM**3/$£C) 
-2.14987E-15 
-2*149898-15 
1.489Q6E-16 
4. 5 1396E-1 6 
1 • 32340E -22 
3.02459E-15 
-2* 98612E-22 
1.54726E-15 


MIXTURE MOLECULAR WEIGHT 6.21325 


TOTAL ENERGY EXCHANGE RATE 
(CAL-CM**3/GM**2/SEC) 


RFACTION NET REACTION CONVERSION RATE 
NUMBER (M0LE-CM*»3/GM**2/StCl 

1 3.58755E-08 

2 7*2B558E-08 

3 1.84851E-08 

4 1 • 84852E-0 fl 

5 4*635036-07 

6 3* 75977E-14 

7 1*794276-08 

B 3* 594 39E-1 2 

9 3. 906406-07 

10 8 • 02049E- 16 

11 7* 10905E-1 8 

12 7.88538 E-22 

-1* 39228E-02 MASS FRACTION SUM C 


RATE CONSTANT 
(CGS UNITS) 
1*1 5030E-05 
7.59590E*11 
3. 0854 3 £+09 
5.024376*10 
1*629656415 
7.000006*13 
1.6087BE*04 
1 * 000006*12 
1.39711E*06 
9. 085666*11 
3*090756*12 
4* 693 83E*08 


VARIABLE DERIVATIVE INCREMENT 

V 0* 0* 

RHO 0. 0. 

T 0* 0. 

H2 -0* 33367E-1 0 0* 


RELATIVE ERROR 


0*231116-11 
0* 7005 8E-1 1 
0* 23 540E-17 
0.45942E-11 
-0.4S345E-17 
0*240146-10 


INCREMENT 

0* 


RELATIVE ERROR 


TIME 5.500006*01 SEC 


1.000006*00 SO CM 


AXIAL POSITION 


FLOW PROPERTIES 

PRESSURE 

(ATM) 

VELOCITY 
t Cm/S EC > 
DENSITY 
( GM/CM** 3) 
TEMPERATURE 
(DEG K I 

MASS FLOW RATE 
(GM/SEC) 
ENTROPY 
(CAL/GM/OEG K) 
MACH NUMBtR 


INTEGRATION INDICATORS 


STEPS FROM LAST PRINT 


AVERAGE STEP SIZE 


CONTROLLING VARI ABLE 


RELATIVE ERROR 


PREDICTOR ITERATIONS 


ELIMINATED SPECIES 


CHEMICAL PROPERTIES 

* ASS FRACTION "OL. FR ACT I OS NET SPECIES PRODUCTION RATE 

( MOLE /CM** 3 /SEC I 

2.659376-bl 0. .7039E-01 -1.29232E-06 

6.13<Mlt-01 1. .17546-01 - 6 . 46 d 92 £ -09 

1,4744.46-09 9,^8 1446-09 -6.757S5E-12 

3.50L-&4E-05 O.S2209E-U6 5.93480E-12 

4.62c * 7t-iO i * ^00576-10 1.70466E-12 

t.l3513fc-ol 3. ^B28E-D7 1.29272E-06 

2*089 >bc- 1 0 R. fc 869IE-ll 1.948186-19 

6.52c 57t-U3 1 * .1 7 826-03 -4.448996-12 


REACTION NET REACTION CONVERSION RATE 
NUM3ER ( HOLE -CM* *3/ GM** 2 /SEC ) 

1 -1.19937E-04 

2 2*842 06E *00 

3 8 » 66045E-0 2 

4 8.65659E-02 

5 2.661146*00 

6 1. 11706E-01 

7 1.103756*00 

8 1.190126*00 

9 1 • 344C 35 -0 1 

10 2.5508AE-01 

11 1.67694E-02 

12 3.962L66-05 


RATE CONSTANT 
(CGS UNITS! 
1* 15030E-05 
7.59590E*11 
3. OB543E*09 
5.024376*10 
1.629656*15 
7.000006*13 
1. 60B78E+04 
1. 000006*12 
1.397116*06 
9.085666*11 
3.098756*12 
4. ',93836*00 
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4 


MIXTURE 

MOLECULAR HEIGHT 

6.34507 

TOTAL ENERGY EXCHANGE RATE -1. 

ICAL-CM**3/GM*»2/SEC ) 

800086*05 MASS 

FRACTION SUM 

0. 99999548 

VARIABLE 

DERIVATIVE 

INCREMENT 

RELATIVE ERROR 

VARIABLE 

DERIVATIVE 

INCREMENT 

RELATIVE ERROR 

V 

-0. 

-0. 

0. 

H 

-0.10488E-06 

-Q.331416-12 

0.8871 56-05 

RHO 

0. 

-0. 

0. 

M02 

0. 921106-07 

Q.99000E-10 

0.139T9E-05 

T 

0. 

-0. 

0. 

OH 

0.264576-07 

0.7-50086-14 

0.68737E-06 

H2 

-0.20057E-03 

-0. 20072E-04 

0. 

H20 

0.200636-03 

0. 20C' ? 8E-04 

0. 

02 

-0.1Q035S-03 

-0.10033E-04 

0. 

□ 

9202 

0.30236E-14 

-0.69049E-07 

-0.782 £”14 
— 0.616556-08 

0.8878 5E-05 
0.42873E-07 


TIME 1.200006*02 SEC 


AREA 1. 000005*00 SO CM 


AXIAL POS IT I ON 


CM 


FLOH PROPERTIES 


INTEGRATION INDICATORS 


PRESSURE 

0.61855 

STEPS FROM LAST PRINT 

101 

1 ATM) 
VELOCITY 

-0. 

AVERAGE STEP SIZE 

0. 14852E+0&1 

ICM/SEC) 

DENSITY 

6.44320E-05 

CONTROLLING VARIABLE 

H202 

1GM/CM»»3) 

TEMPERATURE 

773.15 



< DEG K) 

MASS FLOH RATE 

-0. 



(GM/SEC) 

ENTROPY 

6.6034 

RELATIVE ERROR 

0. 25645E- 10 

(CAL/GM/DEG K) 
MACH NUMBER 

0. 

PREDICTOR ITERATIONS 

0 

GAMMA 

1.3657 




CHEMICAL PROPERTIES 


SPECIES 

H2 

02 

H 

HO 2 
OH 
H20 
0 

H202 


MASS FRACTION 

2.40550E-01 

9.13001E-01 

1.46904E-09 

3.454076-05 

4.89613E-10 

3.40905E-01 

1.54663E-10 

5.49669E-03 


MOLE FRACTION 

7.88565E-01 
8.S2987E-02 
9. 63 13 IE-09 
6. 91 S95E-06 
1 . Q0252E-10 
1.25062E-01 
6.3B828E-U 
1.06793E-03 


NET SPECIES PRODUCTION RATE 
( MOLE /CM»» 3/SEC ) 
-1.172076-08 
-5.84203E-09 
-1.79357E-13 
3.37780E-X2 
3.82663E-15 
1.17608E-08 
-1. 11057E-15 
-4.17583E-11 


REACTION 

NUMBER 

1 

2 

3 

9 

S 

8 

7 

a 

9 

10 

11 

12 


NET REACTION CONVERSION RATE 
I M0LE-CM*«3/GKo»2/S EC) 

-I. 146446-04 
2. 609926*00 
5. 804216-02 
5. 795656-02 
2.444S0E+00 
1.06766E-01 
l.03767E*00 
1.09S21E+00 
1.60490E-01 
2. 139866-01 
1.41050E-02 
8.58655E-05 


RATE CONSTANT 
1C3S UNITS) 
l. 1 5030E-05 
7 • 595906*11 
3.08543E»09 
5.0243TE*10 
1.629656*15 
7.0C000E*13 
1.6087BE*04 
1 . OOOOOE FI 2 
1 • 39711 E*06 
9 • Q8566E+ 11 
3.09875E+12 
4.69383E+08 


MIXTURE MOLECULAR HEIGHT 


6.60846 T0T4L ENERGY EXCHANGE RATE -1.63402E+05 

I C AL-CM*»3/3M*«2/ SEC) 


MASS FRACTION SUM 0.99998793 


VARIABLE 

OtRIVATIVE 

INCREMENT 

RELATIVE ERROR 

VARIABLE 

DERIVATIVE 

INCREMENT 

RELATIVE ERROR 

V 

-0. 

-0. 

0. 

M 

-3. 27837E-08 

-0.63249E-12 

0.34664E-06 

RHO 

0. 

-0. 

0. 

HD2 

0. 52424E-07 

0.13013E-10 

0.101T8E-07 

T 

0. 

-0. 

0. 

OH 

0.59390E-10 

O.25904E-14 

0.7202 46-07 

H2 

-0.1H191E-03 

-0.43891E-07 

0. 

920 

0. 1825 3E— 03 

0.440416-07 

0. 

02 

-0.90670E-34 

-0.218 176-07 

0.57412E-12 

0 

-0.17236E-10 

-0.41662E-1-. 

0.3431 7E-05 





H202 

-0.64810E-05 

-0. 15657E-09 

0.256956-10 

IGCKP) r 

ND OF THIS CASS 

- READ DATA FOR 

NEXT CASE 





•01* UNIT05, 

EOF. 




REC= 00000 FIL= 

00002 
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UISTflNCl-ARFA VE'SU 


general chemical kinetics program 


HIGH TEMPERA I URE AIR IONIZATION 


REACTION RATE VARIABLES 


6.43000L+09 
1 • 36000E+ 14 
6.40000E* 16 
1.38000E+19 
2.BOOOOE+17 
9. 40000F+ 14 
S.OOOODZ* 14 
6.30000E+ 14 
1.45000E«-21 
2 • OOOOOE+ 26 
1.52000E+21 
6* OOOOOE *12 


ENrKGY 

6C50.D0 

75400*00 


-1930.00 

58000*00 

26700.00 


►10) = 0.03000 

► 6) * 1.55000 


ALL THIRD BUOY RATIOS ARE l.C EXCEPT THE FOLLOWING 


50. 00000 
2.25000 


MINIMUM STEP SlZt 0. 10000E-02 CM 

INITIAL STEP SIZE 0.20000E-02 CM 


INTEGRATION CONTROLS 


MAXIMUM STEP SIZE 0.30000E+00 CM 
MAXIMUM RELATIVE ERROR C. 00010 



** ASSIGNED VARIABLE PROFILE •• 

THE AREA IS CALCULATED FROM THE FOLLOWING POLYNOMIAL 


AREA (CM**2> = ( 0. 


)X + ( 1 . OOOOOE+03 I 


THE FOLLOWING SPECIES WILL BE NEGLECTED f RDM ALL ERROR CONSIDERATIONS 


** INITIAL CONDITIONS *• 
AREA UOOOOOEfOJ SO CM 


FLOW PROPERTIES 

PRESSURE 
l ATM > 

VELOCITY 
I CM/SEC ) 
DENSITY 
I Gm/CM** 3) 
TEMPERATURE 
(DEG K I 

MASS FLOW RATE 
IGM/SEC) 
ENTROPY 
(CAL/GM/DEG K) 
MACH NUMBER 


AXIAL POSITION 


INTEGRATION INDICATORS 


STEPS FROM LAST PRINT 


AVERAGE STEP SI2E 


CONTROLLING VARIABLE 


RELATIVE ERROR 


PREDICTOR ITERATIONS 


CHEMICAL PROPERTIES 


1 M0LES/CM»*3) 


2. 09500E-01 

0 . 

0 * 

7 . 90500E-0 l 


MIXTURE MOLECULAR WEIGHT 28.84765 


NET SPFCIES PRODUCTION RATE 
(M0LE/CM**3/SEC) 
1.57461E-05 
-9.96229E-02 
0. 

1.80102E-01 

-1.91514F-02 


TOTAL ENERGY EXCHANGE RATE 
(CAL-CM**3/3M»*2/SECI 


REACTION NET REACTION CONVERSION RATE RATE CONSTANT 


( KOLE-CM ••3/GM** 2/SEC ) 


-5. 35802E+06 
-5.24160E+02 


MASS FRACTION SUM 


(CGS UNITS) 
1. U3B7E + I3 
5.l84?9E*iO 
9. 21842E+14 
2. 7o322E+14 
4.H4D31E+14 
l. !4984E*15 
1. 17251E+12 
3.0 7B84E*1 3 
4. 33309E *15 
1.23997E*17 
2. 78509E + 17 
6.0000DE*12 


DERIVATIVE 
-0.47807E+05 
0. 12466E-03 
-0* 6U657E+04 
0. 27335E-D5 
-0. 17294E-01 


RELATIVE ERROR 


DERIVATIVE 

-0.332A6E-02 


RELATIVE ERROR 
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-0.93999E+00 


as 

1293 1E + 01 


3IAReA)/DUVAR) 


D2(AREA)/0I IVARI2 

Q. 


( l /AREA) *01 AREAI/Dt IVARI-AA 
0. 86999E+00 


OMEGA! 1,JI RATE OF PRODUCTION OF SPECIES I BY REACTION J 


0.15745E-34 0. 


-0.80479E-01 -0. 


0.16096E+00 -0. 


-0.78T3IE-05 0. 


TIME 4.29553E-07 SEC 


1.00000E+03 SO CM 


AXIAU POSITION 2.00000E-02 CM 


FLOW PROPERTIES 

PRESSURE 

(ATM) 

VELOCITY 
(CM/SEC) 
OENSITY 
(GM/CM*»3) 
TEMPERATURE 
IOEG Kl 

MASS FLOW RATE 
(GM/SEC) 
ENTROPY 
(CAL/GM/DEG Kl 
MACH NUMBER 


INTEGRATION INDICATORS 
STEPS FROM LAST PRINT 


AVERAGE STEP StZE 
CONTROLLING VARIABLE 


RELATIVE ERROR 
PREDICTOR ITERATIONS 


ELIMINATED SPECIES 


SPECIES CONCENTRATION MOLE FRACTION 
I M0LES/CM»*3 ) 

N 6.56604E-10 1.50582E-04 

02 B.67915E-07 1.99042E-01 

NO 4.23622E-09 9.7I509E-04 

0 7.03031E-08 1.61229E-02 

N2 3.41507E-06 7.S3I92E-01 

N02 1.12737E-14 2.38591E-09 

N20 Z.26910E-09 5.20383E-04 

NO* 3.93852E-15 9.G3236E-10 

E 3.93110E-IS 9.01536E-10 

O* 6.24788E-2Q l.t32B5E-14 

02- 6.69569E-18 I.S35S5E-I2 

o- 7.81999E-19 1.79339E-13 

MIXTURE MOLECULAR HEIGHT 28.62043 


CHEMICAL PROPERTIES 

NET SPECIES PRODUCTION RATE 
(MDLE/CM»»3/SEC I 
1.47220E-03 
-7.97902E-02 
1.90776E-02 
1.41933E-01 
-8* 84438E-03 
9.00713E-08 
-1.43056E-03 
2.68482E-08 
2.67924E-0B 
2.18262E-13 
4.725986-11 
S.7485SE-12 

TOTAL ENERGY EXCHANGE RATE 
(CAL-CM»*3/GM»*2/SEC) 


REACTION NET REACTION CONVERSION RATE 
NUMBER !M0LE-CM»»3/GM**2/SCC) 

1 5.65936E+OS 

2 6.59A16E+05 

3 -4.76294E+02 

(f -4.00284E*06 

5 -3. 10432E+02 

6 5. 78323E+OC 

7 6.46143E+05 

8 -5.54290E+05 

9 -I.72385E+00 

10 -1.40I40E-05 

U 3.59614E-03 

12 -5.61721E-04 

5. 780776+11 MASS FRACTION SUM 


DERIVAT IVE 
-0.37006E+05 
0.1UO0SE-D3 
-0.48823E+34 
3.25557E-03 
-U. 13851E-01 
0.33113E-02 
0.24639E-31 


-0. 33997E+02 
0.91R51E-07 
-0.448726+01 
0. 23661E-06 
-0.12709E-04 
0*296936-08 

0.22662E-0A 


RELATIVE ERROR 
0.23623E-07 
0*207763-07 
0. 199356-07 
0. 12 434F-05 
0.470016-07 
0*819926-05 
0. 74622E-06 


DERIVAT! VE 
-0.15354E-02 
3 . 15636E-07 
-3 • 24 83 4E-03 
0.4S633E-08 
0.46511E-08 
3* 37393E-13 
D.82047E-11 
O.I5137E-11 


INCREMENT 
-0. I3909E-05 
0.12164E-10 
-0.21211F-06 
0.40S73E-1 
0.40789E-1 
0. 34366E-16 
0*715006-1- 
0* 12735E-14 


D( AREA ) / 3 I t V AR ) 


021 AREAI/DI IVARI2 


U/AREA) »0t AREA I/O 1 1VAR l-AA 
0. 7038 3E +00 
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SPECIES 


N 


02 


NO 


0 


N2 


N02 


N20 


NO* 

E 


0* 


02 - 


0- 



OMEGA (I.J) RATE OF 

PRODUCTION OF 

SPECIES 1 BY REACTION J 






REACTION 




1 

2 

3 

4 

5 6 

7 

8 

9 

10 

11 

12 




-0. 88 150E-02 

0. 1027DE-01 

0. 741 81E-05 

-0. 

0.96697E-05 0. 

0. 


-0.26848E-07 

-0. 

0. 

-0. 




-0.88150E-02 

0. 

-0. 

-0.62342E-01 

o 

o 

0. 

-0* 86328E-02 

-0. 

-0. 

-0. 56008E- 10 

0.87485E-U 




0.88150E-02 

0. 10270E-01 

-0. 74181E-05 

-0. 

-0. -D.900T IE-07 

0. 

-0. 

-0. 

-0. 

0. 

-0. 




0. 681 50E-02 

-0. 10270E-01 

0. 741816-05 

0.12468E+00 

-0. -0.900T1E-07 

0. 10063E-01 

0* 86328E-D2 

-0.26848E-07 

—0. 21 826E-12 

0. 

—0. 87 485E-1 1 




0. 

-0. 102706-01 

-0. 

-0. 

-0. 48348E-05 0. 

0. 10063E-01 

-0*863285-02 

-0. 

-0. 

0. 

-0. 




0. 

0. 

-0. 

-0. 

-0. 0.90071E-07 

0. 

-0. 

-0. 

-0. 

0. 

-0. 




0. 

-0. 

o o 

1 

-0. 

0. 

1 1 
o o 

-0. 0. 

-0. 1C063E-OI 

0.863285-02 

0. 

0. 

-0. 

-0. 

-0. 3. 

0. 

-0* 

0.26846E-07 

-o. 

0. 

-0. 




0. 

0. 

-0. 

-0. 

-0. 0. 

0. 

-0* 

0.26848E-07 

0. 21826E-12 

-0. 56008E- 10 

-0. 




0. 

0. 

-0. 

-0. 

-0. 0. 

0. 

-0* 

-0. 

0. 21 82 6E-12 

0. 

-0. 




0. 

0. 

-0. 

-0. 

1 

O 

o 

0. 

-0. 

-0. 

-0. 

0.56008E-10 

-0. 87 485E-1 1 




0. 

0. 

-0. 

-0. 

-0. 3. 

0. 

-0. 

-0. 

-0. 

0. 

0.87485E-U 





TI ME 2.20947E-06 SEC 


AREA l.OOOOOE+03 SQCM 


AXIAL POSITION l.OOOOOE-Ot CM 


FLOW PROPERTIES 


PRESSURE 

(ATM) 

VELOCITY 
(CM/ SEC) 
DENSITY 
I GM/CM**3) 
TEMPERATURE 
(DEG K) 

MASS FLOW RATE 
(GM/SEC) 
ENTROPY 
1CAL/GM/DEG K) 
MACH NUMBER 


1.69764 
93951.96 
1 • 31062E-04 
9933.52 
5. T6099E+03 
2.9103 
0.3387 


GAMMA 


1.2839 


INTEGRATION INDICATORS 
STEPS FROM LAST PRINT 
AVERAGE STEP SIZE 
CONTROLLING VARIABLE 


0.36592E-02 

N02 


RELATIVE ERROR 
PREDICTOR ITERATIONS 


0.987 14E-09 


CHEMICAL PROPERTIES 


SPECIES 

CONCENTRATION 
(MOLES/CM*. 3) 

MOLE FRACTION 

NET S»£CI£S PRODUCTION RATE 
(MOLE /CM* *3/560 

REACTION NET 

NUMBER 

REACTION CONVERSION RATE 
1 MOL E— CM**3/GM*» 2/SEC ) 

RATE CONSTANT 
(CGS UNITS) 

N 

1.83781 E-09 

3.93835E-04 

1.72725E-04 

1 

1 . 11502E+06 

1.40238E+13 

02 

7.96056E-07 

1.70592E-01 

-5.11 863E-02 

2 

1. 12223E+06 

2 . 6 1039E + 1 0 

NO 

5. 567846-06 

1. 407466-02 

3.83822E-02 

3 

-2. 70912E+03 

9.61182 c +14 

0 

2 *45 1 8RE-07 

5.25428E-02 

6.42944E-02 

4 

-1.76252E+06 

2.994B2E+14 

N2 

3.55704E— 06 

7. 62259E-01 

-1.89716E-02 

5 

-7 • 363 176*01 

5. 15343E + 14 

N02 

9. 805866-13 

2. 10136E-07 

1. 17571E-06 

6 

6. 844566*01 

1.1 7022E+15 

N20 

5.421 1 8E-10 

l . 376036-04 

-3.06605E-04 

7 

1. 20190E+05 

6.916206*11 

NO* 

2 .05841 E-l 3 

4,41 I08E-08 

1 . 699Q2E-07 

B 

-1 . 02340E+05 

3.042066*13 

E 

2.04951E-13 

4. 3920IE-08 

1.68949E-07 

9 

-9. 89574E+00 

4.911856*15 

0* 

4.1 5480E-1 9 

8. 90356E- 14 

1.38B04E-13 

10 

-8.08064E-06 

1.528126*17 

02- 

3.934216-16 

8.4308SE-11 

3.40682E-10 

11 

6.01532E-02 

2. 99525E+17 

0- 

4.96956E-16 

1 . 06496E-10 

6.92589E-10 

12 

-4.03200E-02 

6. OOOOOE+12 

MIXTURfc 

MOLECULAR height 

2B. 08609 

TOTAL ENERGY EXCHANGE RATE 
(CAL-CM**3/3M**2/SEC) 

2.71933E + 11 

MASS FRACTION SUM 1. 

00000192 


VARIABLE 

V 

RHO 

T 

N 

02 


derivative 
-0.211406*35 
O.63038E-D4 
-0. 251866+04 
0.29965E-04 
-0. 888586-32 
0.866316-02 
0.11161E-01 


INCREMENT 
-0.33775E+02 
0. 10064E-06 
-0. 40265E+01 
0.49665E-07 
-0.14187E-34 
0. 106026-04 
0. 178566-04 


RELATIVE ERROR 
0. 10294E-07 
0. 751566-08 
0. 1 5937E-07 
0.13737E-05 
0. 25221E— 07 
0. 36600E-0& 
0.25236E-06 


AA 

-0.42582 E+00 


BB 

0. 58372E+00 


3(AREAJ/D(EVAR) 

0. 


VARIABLE 

N2 

N02 

N20 

NO* 

E 

0* 

32 - 

0 - 

D2 ( ARE A I / D ( 

0. 


DERIVATIVE 
-3.32934E-02 
0.20410E-06 
-0. 53226E-04 
3. 295396-07 
3.29329E-07 
0* 24096E-13 
0.59142E-10 
3.12 32 3E-09 


INCREMENT 
-0. 62393E-05 
0. 30101E-09 
-0. 36761 E-07 
0.467 40 E — 1 0 
0.46460E-10 
0. 3B297E-1 6 
0. 92641 E-l 3 
0. 18765E-12 


RELATIVE ERROR 
0.31027E-08 
0.4871 4E-04 
0. 34592E-05 
0. 637* 3E-06 
0.6687 1E-06 
0.23484E-05 
0.12294E-05 
0.10702E-04 


U/AREA)*0(ARtA)/D( IVARI-AA 
0.42582E + 00 
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SPECIES 




REACTION 






1 

2 

3 

* 

5 

6 

7 

8 


9 

10 

11 

12 





N 

-0.19153E-01 

0. 19277E-01 

0. *65356-0* 

-0. 

0.25296E-05 

3. 

0. 

-0. » 


-0. 16990E-O6 

-0. 

0. 

-0. 





02 

-0.19153E-01 

0 . 

-0. 

-0.302756-01 

-0. 

3. 

0. 

-0.175796-02 


-0. 

-0. 

-0.103336-08 

0.69259E-09 





NO 

0.19153E-01 

0. 19277E-01 

-0. *65356-0* 

-0. 

-0. 

-0. 1175 7E-05 

0. 

-0. 


-0. 

-0. 

0. 

-0. 





0 

0. 19153E-01 

-0. 192776-01 

0.*6535E-0* 

0.60551E-01 

-0. 

-0. 117576-05 

0. 205 A5E-02 

0.1 7579E -02 


-0. 16998E-06 

-0. 13880E-L2 

0. 

-0. 69259E-09 





N2 

0. 

-0.192776-01 

-0. 

-0. 

-0. 126ASE-35 

3. 

0.206^.56-02 

-0.175796-02 


-0. 

-0. 

0. 

-0. 





N02 

0. 

0. 

-0. 

-0. 

-0. 

0.117576-05 

0. 

-0. 


-0. 

-0. 

0. 

-0. 





N20 

0. 

0. 

-0. 

-0. 

-0. 

0. 

-0.206*58-02 

0.175796-02 


-0. 

-0. 

0. 

-0. 





N0 + 

0. 

0. 

-o. 

-0. 

-0. 

0. 

0. 

-0. 


0.169986-06 

-0. 

0. 

-0. 





E 

0. 

0. 

-0. 

-0. 

-0. 

0. 

0. 

-0. 


0.16998E-06 

0. 138806-12 

-0. 10333E-08 

-0. 





0+ 

0. 

0. 

-0. 

-0. 

-0. 

3. 

0. 

-0. 


-0. 

0. 13880E-12 

0. 

-0. 





02- 

0. 

0. 

-0. 

-0. 

-0. 

0. 

0. 

-0. 


-0. 

-0. 

0.10333E-08 

-0.69259E-09 





0- 

0. 

0. 

-0. 

-0. 

-0. 

0. 

0. 

-0. 


-0. 

-0. 

0 - 

0.692596-09 






TIME 6.928*76-06 SEC AREA 1.000006+0} 


FLOW PROPERTIES 

PRESSURE 1.71308 

(ATM) 

VELOCITY *1235.29 

(CM/SEC) 

DENSITY 1.396976-0* 

(GM/CM++3) 

TEMPERATURE *121.39 

(DEG Kt 

MASS FLOW RATE 5.760**6+03 

(GK/SEC) 

ENTROPY 2. *195 

(CAL/GM/OEG K) 

MACH NUMBER 0.325* 

GAMMA 1.2923 


so CM AXIAL POSITION 3.00000E-01 CM 

INTEGRATION INDICATORS 

STEPS FROM LAST PRINT 31 

AVERAGE STEP SIZE 0.65029E-02 

CONTROLLING VARIABLE N 

RELATIVE ERROR 0.586286-06 

PREDICTOR ITERATIONS 3 

ELIMINATED SPECIES N02 N23 



SPECIES CONCENTRATION HOLE FRACTION 
( M0LES/CM++3 ) 

N 1.90*03E-09 3. 75880E-0* 
02 6.8*081E-07 1.350*7E-01 
NO 2.16*88E-07 *.273T5E-02 
0 *.**187E-07 8. 76882E-02 
N2 3.718676-06 7.3*11*E-01 
N02 1 • 0*639E-1 1 2.065726-06 
N20 1.783*96-10 3.5208*E-05 
NO* 1. 130986-12 2. 23270E-07 
E 1.1197*6-12 2. 210526-07 
0* 7.8725*6-19 1.51*666-13 
02- 2.279*86-15 *.*9998E-10 
0- 8.958726-15 1.768576-09 


CHEMICAL PROPERTIES 


NET SPECIES PRODUCTION RATE REACTION 

(M0LE/CM++3/SEC) NUMBER 

-5. 82216E-05 l 

-2. 20719E-02 2 

2.127806-02 3 

2.2889*6-02 * 

-1.058176-02 5 

3.0166*6-06 6 

-2.97355E-05 7 

1 . 76151E-07 8 

1.73210E-07 9 

3.082356-1* 13 

3.58196E— ID 11 

2.583186-09 12 


NET REACTION CONVERSION RATE RATE CONSTANT 
( H0LE-CM++3/GH++ 2/SEC ) ICGS UNITS! 

5. *91036*05 1.235*86+13 

5. *37*36+05 1.365256+10 

-2.363866+03 9.96915E+1* 

-5.6*6326+05 3.21223E+1* 

-1.090*86+01 5. **3*76+1* 

1.5*5796+02 1.189806+15 

1.87997E+0* *.200826 + 11 

-1.72760E+0* 2,*1817E+13 

-9.02633E+00 5. *80286+15 

— 1. 579*6E— 06 1.33*096+17 

1. 50722E-01 3. 1 8931 E +1 7 

-1 .323676-01 6.00000E+12 


MIXTURE MOLECULAR WEIGHT 27.57797 TOTAL ENERGY EXCHANGE RATE 9.3020TE+10 MASS FRACTION SUM 1.00000399 

(CAL-CM++3/GM++2/SEC) 


VARIABLE DERIVATIVE INCREMENT RELATIVE ERROR 

V -0.87573E+0* -0. 531596+02 0.23952F-07 

RHO 0 . 29668E-0* 0. 17986E-06 0.17687E-07 

T -0. 981006+03 -0.595656+01 0.30016E-07 

N -0.10107E-0* -0. 595616-07 0.58628E-06 

02 -0.383166-02 -0.2326*6-0* 0.833966-07 

NO 0.369386-02 0.22*286-0* 0.126516-06 

0 0.39735E-02 0.2*1276-0* 0.19267E-06 


AA 88 D ( AREA 1 /D ( I VAR I 

-0.13988E+00 0.2**606+00 0. 


VARIABLE 06RIVATIVE INCREMENT RELATIVE ERR3R 

N2 -0.18370E-02 -0.11153E-0* 0.37689E-08 

N02 0.52353E— 06 O.26779E-O0 0.15835E-0* 

N20 -3.51623E-05 -0.32783E-07 0.**69*E-05 

N0+ 0.30579E-07 0.18*3*8-09 O.9*339E-07 

E 0.30069E-07 0.18131E-09 0.13203E-06 

3* 0.535D9E-1* 0.32380E-16 0.767926-05 

32- 0.52132E-10 0.37936E-12 0.90923E-35 

3- 3. **8*36-09 0.26*586-11 0.*82*6E-05 

02 ( ARE A I/O (I VAR) 2 ( 1 / ARE A I *D ( AR E A ) /D( IV AR ) - A A 

o. o.isojeE+oo 
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SPECIES 


N 


02 


NO 


0 


N2 


N02 


N20 


NO* 


E 


0 + 


02 - 


OMEGAU.J) RATE OF PRODUCTION OF SPECIES I BY REACTION J 





REACTION 





1 

2 

3 

4 

5 

6 

7 

0 

9 

10 

11 

12 





‘0.107 16 E-01 

0. 1061 IE-01 

0.46131E-04 

- 0 . 

0.42562E-D6 

0 . 

0 . 

- 0 . 

-0. 17615E-06 

- 0 . 

0 . 

- 0 . 




-0.1C716E-01 

0 . 

- 0 . 

-0. 1 1 019E-01 

- 0 . 

0 . 

0 . 

-0.3 3714E-03 

■ 0 . 

- 0 . 

-0.29414E-0B 

0. 25832 E-OB 




0. I0716E-01 

0 . 1061 16-01 

-G.46131E-04 

- 0 . 

- 0 . 

-0. 301 66E-05 

0 . 

- 0 . 

- 0 . 

- 0 . 

0 . 

- 0 . 





0. 10716E-01 

-0. 1061 IE-01 

0.46131E-04 

0.22038E-01 

- 0 . 

-0. 30166E-05 

0. 36688E-03 

0.33714E-03 

■0. 1761 5E-06 

- 0 . 30824E- 13 

0 . 

-0.25832E-09 




0 . 

-O. 1 O 6 IIE-OI 

- 0 . 

- 0 . 

-0.21281 E-06 

0 . 

0. 36688E-03 

- 0 . 33714E-03 

* 0 . 

- 0 . 

0 . 

- 0 . 




0 . 

0 . 

- 0 . 

- 0 . 

- 0 . 

0. 30166E-05 

0 . 

- 0 . 

■ 0 . 

- 0 . 

0 . 

- 0 . 





0 . 

0 . 

- 0 . 

- 0 . 

- 0 . 

0 . 

*0. 36688E-03 

0.33714E-03 

■ 0 . 

- 0 . 

0 . 

- 0 . 




0 . 

0 . 

- 0 . 

- 0 . 

- 0 . 

0 . 

0 . 

- 0 . 

0.17615E-06 

- 0 . 

0 . 

- 0 . 





0 . 

0 . 

- 0 . 

- 0 . 

- 0 . 

0 . 

0 . 

- 0 . 

0. 17616E-06 

0. 30824E-13 

-0.29414E-08 

- 0 . 





0 . 

0 . 

- 0 . 

- 0 . 

- 0 . 

0 . 

0 . 

- 0 . 

■ 0 . 

0. 30824E- 13 

0 . 

- 0 . 





0 . 

0 . 

- 0 . 

- 0 . 

- 0 . 

0 . 

0 . 

- 0 . 

0 . 

- 0 . 

0.29414E-08 

-0. 25B32E-08 





0 . 

0 . 

- 0 . 

- 0 . 

- 0 . 

0 . 

0 . 

- 0 . 

' 0 . 

- 0 . 

0 . 

0.25832E-08 






TIME 2.4S511E-05 SEC 


AREA 1.00000E»03 SO CM 


AXIAL POSITION l.OOOOOE+OO CM 


FLOW PROPERTIES 


INTEGRATION INDICATORS 


PRESSURE 
I ATM ( 

VELOCITY 
(CM/SECI 
DENSITY 
(GM/CM*«3> 
TEMPERATURE 
(DEG Kl 

MASS FLOW RATE 
(GM/SEC) 
ENTRDPY 
(CAL/GM/DEG Kl 
MACH NUMBER 

GAMMA 


SPECIES 

CO.NCENTRAT I ON 
I MOL ES/ CM»*3 ) 

MOLE FRACTION 

N 

1.54073E-09 

2.79074E-04 

02 

5.65279E-07 

1 . 02390E-01 

NO 

3.70134E-07 

6 . 70427E-02 

0 

5.7 14246-07 

1.21616E-01 

N2 

3.91237E-06 

7. 08653E-01 

N02 

5.2 4306E-1 1 

9.49682E-06 

N20 

4.89868E-11 

8. 873Q4E-06 

NO* 

3 • 1 8774E-12 

5.77400E-07 

E 

3.11843E-12 

5.64846E-07 

0 + 

9. 996076-19 

1. 81060E-13 

02 - 

6. 55472E-15 

1. 18726E-09 

0 - 

6.27563E-14 

1. I3671E-08 


1.72854 

38516.28 

1.49559E-04 

3815.59 

5.76044E+03 

2.4236 

0.3120 

1.3013 


CHEMICAL PROPERTIES 

NET SPECIES PRODUCTION RATE 
I HOLE /CM* *3/ SEC) 
-1.05584E-05 
-3.37922E-03 
1.21 577E-03 
5.53999E-03 
-6.02164E-04 
2.05999E-06 
-1.50019E-06 
5. 791 53E-08 
5. 52351E-08 
3. 29124E-15 
8.70285E-11 
2.59322E-09 


STEPS FROM LAST PRINT 
AVERAGE STEP SIZE 
CONTROLLING VARIABLE 


40 

0. 17650E-01 
N20 


RELATIVE ERROR 0.92532E-05 

PREDICTOR ITERATIONS 11 


EACTIDN 

NET REACTION CONVERSION RATE 

RATE CONSTANT 

NUMBER 

( MOL E-CM»*3/GM** 2/SEC 1 

I CGS UNITS) 

1 

2. 82 154E+04 

1.075936*13 

2 

2.69871E+04 

6. 527896*09 

3 

-7.56753E+02 

1.036 09EH5 

4 

-1.20796E+05 

3.45B14E+14 

5 

—1. 014246*00 

5.76749E*14 

6 

9* 20964E + 0 1 

l.21248E*15 

7 

2.131 35E*0 3 

2.38145E+11 

8 

-2.06428E*03 

1.B6216E+13 

9 

-2.58923E+00 

6.15212EU5 

10 

-1.47142E-07 

2.223956*17 

11 

1. 19827E-01 

3.40503E+17 

12 

-1.1 5936E-01 

6 . 000006*12 


MIXTURE MOLECULAR WEIGHT 27.08972 


TOTAL ENERGY EXCHANGE RATE 1.58710E*10 
( CAL-CM**3/3M**2/SEC) 


MASS FRACTION SUM 1.00000587 


VARIABLE 

DERIVATIVE 

INCREMENT 

V 

-0. I6834E+D4 

-0.41002E*02 

RHO 

0.65367E-05 

0.15904E-06 

T 

-0. 19525E+03 

-0. 475026*01 

N 

-0. 18329E-D5 

-0.43077E-07 

02 

-0.58663E-03 

-0. 14364E-04 

NO 

0 . 21 1 06E-03 

0. 54225E-05 

0 

0 . 961 73E-03 

0.23298E-04 


RELATIVE ERROR 
0.26820E-06 
0.23639E-06 
0.29077E-06 
0.18551E-05 
0.13262E-05 
0.25I60E-05 
0.84620E-06 


AA 

-0.3R452E-D1 


BB 

0. *24526-01 


Q ( ARE A I /DI I VAR) 

0 . 


VARIABLE 

N2 

N02 

N20 

NO* 

E 

0 * 

02 - 

0 - 


OERIVATIVE 
—0.1 0453E-03 
0.35761E-06 
-0.2SD43E-06 
0.10054E-07 
0.95887E-08 
0.5 7135E-15 
0. I51O3E-10 
0*4501 8E-09 


INCREMENT 
-0.26B61E-05 
0, 581 17E-08 
-0. 7106 5E-0 8 
0.24483E-0* 
0.23369E-09 
0. 13882E-1 ' 
0.53031E-12 
0. 10609E-10 


RELATIVE ERROR 
0.11856E-06 
0.38041E-05 
0. 92 532E-05 
0. 16902E-D5 
0. 1699OE-0 5 
0. 74860E-06 
0.138D9E-05 
0. 12865E-05 


U2I AREAl/DI I VAR) 2 

0. 


tl/AREA)*DIARtA)/DI IVARl-AA 
0. 39452E-01 
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RATE OF PRODUCTION OF SPECIES ! BY REACTION J 


SPECIES 

N 

02 

NO 

0 

N2 

N02 

N20 

NO* 

£ 

0* 

02 - 

0- 


1 

9 

■0.631 liE-03 
-0.579156-07 

-0.631116-03 

- 0 . 

0.63111 E-03 

- 0 . 

0.63111E-03 
-0. 579156-07 

0. 

- 0 . 

0. 

- 0 . 

0. 

- 0 . 

0 . 

0. 57915E-07 

0 . 

0. 57915E-07 

0 . 

- 0 . 

0 . 

- 0 . 

0 . 

- 0 . 


2 

10 

O.c.03646-03 

- 0 . 

0. 

- 0 . 

0.403646-03 

- 0 . 

-0.60364E-03 

-0.32912E-14 

-0.60364E-03 

- 0 . 

0. 

- 0 . 

0. 

- 0 . 

0. 

- 0 . 

0. 

0.32912E-14 

0. 

0.329126-14 

0. 

- 0 . 

0. 

- 0 . 


3 

11 

0.1692TE-04 

0. 

- 0 . 

-0 . 26803E-08 

-0.169276-04 

0. 

0.16927E-04 

0. 

- 0 . 

0. 

- 0 . 

0. 

- 0 . 

0. 

- 0 . 

0. 

-0. 

-0.26803E-08 

- 0 . 

0. 

- 0 . 

0.268036-08 

- 0 . 

0. 


REACTION 

4 

12 

- 0 . 

- 0 . 

-0.270196-02 

0.25932E-03 

- 0 . 

- 0 . 

O.54039E-02 
—0. 259326-08 

- 0 . 

- 0 . 

- 0 . 

- 0 . 

- 0 . 

- 0 . 

- 0 . 

- 0 . 

- 0 . 

- 0 . 

- 0 . 

- 0 . 

- 0 . 

-0.259326-08 

- 0 . 

0. 25932E-08 


5 

0, 45372E-07 

- 0 . 

- 0 . 

- 0 . 

-0. 22686E-07 

- 0 . 

- 0 . 

- 0 . 

- 0 . 

- 0 . 

- 0 . 

- 0 . 


6 


3 


3. 

3. 

-0. 20600E-05 
-0. 206006-05 

3. 

0.206006-05 

3. 

0. 

0. 

3. 

0. 

0. 


0. 

0. 

0. 

0. 47674E-04 
0.4 T674E-04 

0. 

-0.476746-04 

0. 

0. 

0. 

0. 

0. 


-0. 461 736-04 

- 0 . 

0.46173E-04 

-0.46173E-04 

- 0 . 

0.461736-04 

- 0 . 


- 0 . 

-0. 


TIME 2. 66890E-04 SEC 


AREA 1.00000E*03 SQ CM 


AXIAL POSITION 1.00000E*01 CM 


FLOW PROPERTIES 

PRESSURE 
I ATM) 

VELOCITY 
1 CM/ SEC I 
DENSITY 
IGH/CM*»3) 
TEMPERATURE 
( 0E3 K) 

MASS FLOW RATE 
t GH/ SEC ) 
ENTR3PY 
(CAL/GM/OEG K) 
MACH NUMBER 


1.73751 
36937.72 
1 . 55950E-04 
3622.45 
5.760436*03 
2.4243 
0.3040 


GAMMA 


1.3082 


INTEGRATION INDICATORS 
STEPS FROM LAST PRINT 
AVERAGE STEP SIZE 
CONTROLLING VARIABLE 


57 

0. 10575E+00 
N02 


RELATIVE ERROR 0.28647E-06 

PREDICTOR ITERATIONS 11 


SPECIES 

N 

02 

NO 

0 

N2 

N02 

N20 

NO* 

E 

0* 

02 - 

0- 


C ONCENTRATI ON 
t M0LES/CM**3) 
1.433686-09 
5.273686-07 
3.32611 £-07 
9.77529E-07 
4.106A2E-06 
3.92664E-11 
2.179396-11 
3.794266-12 
3.65218E-12 
1. 209456-18 
8.338066-15 
1.337386-13 


MOLfc FRACTION 

2.45267E-04 
9.02 195E-02 
5.69014E-02 
1.50123E-01 
7. 02489E-01 
1.69820E-05 
3.728396-06 
6.491026-07 
6.24796E-07 
2. 06906E-13 
1.42643E-09 
2.28T92E-08 


MIXTURE MOLECULAR WEIGHT 


26.67907 


CHEMICAL PROPERTIES 


NET SPECIES PRODUCTION RATE 

REACTION 

(M0LE/CM»*3/SECI 

NUMBER 

-9.45584E-09 

1 

-2.07474E-06 

2 

-5.50931E-06 

3 

9.65077E-06 

4 

2. 7581 5E-06 

5 

4.55121E-09 

6 

-9.998626-10 

7 

-7. 559106-11 

8 

— 7.67784E-11 

9 

4. 38453E-16 

10 

6. 52877E-15 

11 

1. 18131E-12 

12 


NET REACTION CONVERSION RATE 

RATE CONSTANT 

I M0LE-CM»*3/GM*» 2/SEC ) 

ICGS UNITS) 

-1. 11924E+02 

9. 77550E*12 

-1. 13369E+02 

3. 84156E+09 

-1.05111E*00 

1 • 063366+1 5 

-1.95026E+02 

3. 63382E+14 

— 9.09406E-04 

5. 99661E+1 4 

l. 87136E-01 

1.229056+15 

2. 248266*00 

l. 583856*11 

—2. 20715E*00 

1. 543396*13 

3. 10814E-03 

6.65065E+15 

-1. 80263E-08 

2.53235E+17 

4.88415E-05 

3. 556696+17 

-4.85731E-05 

6.000006*12 


TOTAL ENERGY EXCHANGE RATE 1.870196*37 
(CAL-CM»*3/GM*»2/SEC) 


MASS FRACTION SUM 1.00000596 


RHO 

T 


02 

NO 

0 


0£R IVAT1VE 
-0.202136*01 
0.8S337E-08 
-0.255116*00 
-0. 164156-38 
-0. 3601 7E-06 
-0 . 95641 E-06 
0. 167546-05 


INCREMENT 
-0. 3242 5E *00 
0. 136906-08 
-0. 408376-01 
-0. 17194E-09 
-0. 58692E-07 
-0. 14948E-06 
0. 26678E-06 


RELATIVE ERROR 
0. 752 88E-08 
0. 75229E-08 
0.976656-08 
0.562376-07 
0. 13853E-07 
0.67111E-07 
0.42025E-07 


VARIABLE 

M2 

N02 

N20 

NO* 

E 

0* 

02 - 

0 - 


DERIVATIVE 
0.4788LE-06 
0. 79008E-09 
-3. 1T357E-09 
-0.13122E-10 
-0. 13329E-10 
0.74115E-16 
0.11334E-14 
3. 20507E-12 


INCREMENT 
0. 748246-07 
0.59140E-10 
-0.24406E-1G 
-0. 205376- L 1 
-0.208266-1 1 
0.112946-16 
-0.349106-14 
0*323886-1 3 


RELATI VE ERROR 
0. 272506-08 
0.286476-06 
0.11152E-06 
0.780196-07 
0.840126-07 
0. 

0.182336-06 
0 .921586-07 


A« 

— 0. 49665E-04 


BB 

0. 71983E-04 


OIAREA)/D( I VAR I 

0. 


02 1 AREA ) / D( IVARI2 

0. 


( 1/ARLA) *D( ARLAI/OI IVARl-AA 
0.4S66 : E-04 
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OHEGAII.JI RATE DF PRODUCTION OF SPECIES I BY REACTION J 

SPECIES REACTION 

I 2 3 A 5 6 7 6 

9 10 U 12 

N 0.27220E-05 -0.27572E-O5 0.25563E-07 -0. 0.44234E-10 0. 0. -0. 

0.75591E-10 -0. 0. -0. 

02 0.27220E-05 -0. -0. -0.A7A31E-O5 -0. D. 0. -0.53679E-07 

0. -0. -0.U87BE-U 0.U813E-11 

NO -0.27220E-05 -0. 27572E-05 -0.25563E-07 -0. -0. -0.45512E-08 f>- -0. 

0 . - 0 . 0 . - 0 . 

0 -0.27220E-05 0. 27572E-05 0.255636-07 0.94862E-05 -0. -0.45512E-08 0.54678E-07 0.53679E-07 

0.75591E-10 — 0. 43845E— 15 0. -0.11813E-11 

N2 -0. 0.27S72E-05 -0. -0. -0.22117E-1D 0. 0.54678E-07 -0.53679E-07 

0. -0. 0. -0. 

N02 -0. -0. -0. -0. -0. D.45512E-08 0. -0. 

0 . - 0 . 0 . - 0 . 

N20 -0. -0. -0. -0. -0. 3. -0.54678E-07 0.53679E-07 

0. -0. 0. -0. 

NO* -0. -0. -0. -0. -0. 0. 0. -0, 

-0.75591E-10 -0. 0. -0. 

E -0. -0. -0. -0. -0. 0. 0. -0. 

-0.75591E-10 0.43845E-15 -0.11B78E-11 -0. 

0 + - 0 . - 0 . - 0 . - 0 , - 0 . 0 . 0 . - 0 . 

0. 0.43845E-15 0. -0. 

02 ~ - 0 . - 0 . - 0 . - 0 . - 0 . 0 . 0 . - 0 . 

0. -0. 0.11878E-11 -0.11813E-11 

0 - - 0 . - 0 . - 0 . - 0 . - 0 . 0 . 0 . - 0 . 

0. -0. 0. 0.11 813E-11 

IGCKP) END of THIS CASE - READ DATA FOR NEXT CASE 
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APPENDIX F 


AVAILABILITY OF THERMODYNAMIC AND RATE CONSTANT DATA 

Thermodynamic Data 

The form of the thermodynamic data equations has already been discussed under the * 
heading Thermodynamic Data and Species Names in the section GENERAL DESCRIPTION 
OF PROGRAM USE. Curve fitted coefficients A^Ag, . . . , A^ have been calculated for 
415 species by Gordon and McBride. The complete list of coefficients has been pub- 
lished in reference 13. Two sets of coefficients are given for each species. The first 
listed set was obtained for the temperature range 1000 to 5000 K. The second set was 
curve fitted for the temperature range 300 to 1000 K. The high-range equation can be 
extrapolated beyond the high temperature limit to 6000 K and the low range equation can 
be used down to 100 K. These coefficients will be available as part of the chemical 
kinetics program. 


Rate Constant Data 

No set of ’’standard” reaction rate constants can be given analogous to the sets of 
coefficients for thermodynamic properties of the species. Rate constant data are much 
less precisely known. In general, the choice of rate constant for any reaction is left to 
the user. For the convenience of the reader a short list of rate constant equations is 
presented in table V. These rate constants are not to be taken necessarily as ’’best” 
values but only as reasonable values to use in performing kinetics calculations. Addi- 
tional rate constant data are found in the sample case data listed in appendix E. Further 
kinetics information may be found in references 22 to 28 and 30. 
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TABLE V. - REACTION RATE CONSTANTS 21 


[k- = A. T^ exp(-E./RT). ] 


Reaction 

number 

Reaction 

A. 

] 

n. 

] 

E i’ 

cal/mole 

Reference 

1 

H + 0 2 - OH + O 

1.25X10 14 

0 


16 300 

29 

2 

0 + H 2 — OH + H 

2.96X10 13 



9 800 

29 

3 

H 2 + OH - H 2 0 + H 

2.1X10 13 



5 100 

29 

4 

0 + H 2 0 - OH + OH 

5.75X10 13 



18 000 

22 

5 

H 2 + H0 2 -H 2 0 2 + H 

9.6X10 12 



24 000 

23 

6 

H + H0 2 - OH + OH 

7.0X10 13 



0 

30 

7 

OH + H0 2 - H 2 0 + 0 2 

6.0X10 12 



0 

30 

8 

0 + H0 2 — OH + 0 2 

6. Oxl 0 1 2 



0 

30 

9 

h0 2 + H0 2- H 2°2 + 0 2 

1.8X10 12 



0 

30 

10 

H + H 2 0 2 - HgO + OH 

3.18X10 14 



9 000 

23 

11 

OH + H 2 0 2 - H 2 0 + H0 2 

1.0X10 13 



1 800 

23 

12 

H + 0 2 + Ar — H0 2 + Ar 

1.59X10 15 



-1 000 

23 

13 

H 2°2 + N 2 ~ OH + OH + N 2 

1.17X10 17 



45 500 

23 

14 

H + H0 2 - H 2 + 0 2 

1 1 

2.3xlO iJ 



0 

28 

15 

H + H + Ar -Hg + Ar 

l.OxlO 18 

-1.0 

0 

31 

16 

Og + Ar — 0 + 0 + Ar 

2.55X10 18 

-1 

.0 

118 700 

32 

17 

H + OH + Ar — HgO + Ar 

7.5X10 23 

-2.6 

0 

33 

18 

CO + OH — C0 2 + H 

4.2X10 11 

0 


1 000 

29 

19 

co + o 2 - co 2 + O 

1.6X10 13 

0 


41 000 

29 

20 

H 2 + Og-OH + OH 

1 .0x1 0 1 3 

0 


43 000 

(b) 

21 

N + O + N 2 - NO + Ng 

6.4X10 16 

- 

.5 

0 

24 

22 

N + Og — NO + O 

6.4X10 9 

1 

.0 

6 250 

24 

23 

0 + Ng — NO + N 

1.36X10 14 

0 


75 400 

24 

24 

N0 2 + 0 —NO + 0 2 

l.OxlO 13 



600 

25 

25 

NO + 0 + Ar — NOg + Ar 

1.05X10 15 



-1 870 

25 

26 

NOg + H - NO + OH 

7. 2xl0 14 



1 930 

30 

27 

NO + HOg - NOg + OH 

1. 0xl0 X ^ 



0 

28 


a Units of bimolecular and two-body dissociation reaction rate constants are 
3 -1-1 

cm mole sec . Units of three -body recombination reaction rate con- 
6 9 1 

stants are cm mole sec . 

^Authors’ estimate. 




APPENDIX G 


FORTRAN PROGRAM LISTING AND FLOW CHARTS 


$ IEFTC GCKP DECK 

C GENERAL CHEMICAL KINETICS PROGRAM 
LOGICAL NEXT, EVSTEP 
REAL IV AR 

COMMON/COND/DDM 1 (4) ,IVAR,Y (28) ,DUM2 (2) , NEXT 

COHMON/SINT/HMIN,HINT,HN,HNPl , HM AX , NH , AVH, EM AX , ERP N , JCV , KOONT , ERRP 
COMMON/PQRE/PK (28) , QK (28) , R K { 28) , E ( 28) 

COMMON/PRIN/PRINT (50) , NPRNTS, END, EVSTEP 

C READ AND CONVERT INPUT, PERFORM PPE-KINF.TIC CALCULATIONS 
CALL KINP 

1 IF (NEXT) GO TO 1000 

C PRINT REACTIONS, ASSIGNED VARIABLE PROFILE, INTEGRATION CONTROLS 

CALL OUT 1 

C COMPUTE (NON-INPUT) INITIAL CONDITIONS 

CALL PRED1 

C PRINT ALL INITIAL CONDITIONS 

CALL OUT2 

IF (NEXT) GO TO 1000 

C INITIAL INTEGRATION STEPS 

CALL INTI 
NH = 2 
AVH = HINT 
CALL OOT3 

IF (NEXT) GO TO 1000 


IF {.NOT- EVSTEP) GO TO 3 


** INTEGRATION - 

PRINT 

RESULTS 

AFTER EVERY STEP 

2 NH - 0 




PREV = IV AR 
CALL INTG 
NH = NH ♦ 1 
AVH = HN 
IF (NH .NE. 1) 
CALL OUT3 

AVH = 

( IV AR - 

PREV) /FLOAT (NH) 


IF (NEXT) GO TO 1000 

HTOP = END - IV AR 

IF (HTOP .LE. 0.) GO TO 100 

IF ( (HTOP— HNP1) -LT. 0.) HNP1 = HTCP 

GO TO 2 

C LOCATE FIRST PRINT STATION 

3 DO 4 1=1 , NPRNTS 

IF (PRINT (I) .GT. I V AR) GO TO 5 

4 CONTINUE 


AAOO 1 
AA002 
A A 00 3 
A A 0 0 4 
A A005 
AA006 
A A 007 
A A008 
AA009 
A AO 1 0 
AA011 
A AO 1 2 
A A 0 1 3 
A AO 1 4 
A AO 1 5 
AAO 16 
A A0 1 7 
A A018 
AA019 
A AO 20 
AA021 
AA022 
AA023 
AA024 
AA025 
A AO 26 
AA027 
A A028 
AA029 
A A 0 3 0 
AA031 
AA032 
A A 0 3 3 
AA034 
AA035 
AA036 
AA037 
A AO 3 8 
AA039 
A AO 40 
AA04 1 
AA042 
AAO 43 
A AO 4 4 
AA045 
AA046 
AA047 
A AO 48 
A A 049 
AA050 
AA051 
AA052 
A A 0 5 3 
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n o 


5 NS = I 

C ** INTEGRATION - PRINT RESULTS AT PRINT STATIONS 
DO 10 I=NS, NPFNTS 
NH = 0 
PREV = IV AF 

C SET NEXT PRINT STATION 

PRNT = PRINT (I) 

C INTEGRATE TO PRINT STATION 

6 HTOP = PRNT - I V AF 

IF (HTOP .LE. HNP1) GO TO 7 
CALL INTG 
NH = NH + 1 
IF (NEXT) GC TO 8 
GO TO 6 

C SPECIAL STEP TO PRINT STATION 

7 CALL CASG (HN , QK , HTOP , RK) 

ERRN = ERROR (Y,RK,E,JCV, HTOP) 

CALL PRED 

NH = NH + 1 

8 A VH = ( IVAR - PREV)/FLOAT (NH) 

CALL OUT3 

IF (NEXT) GO TO 1000 
CALL INTC 

10 CONTINUE 

100 WRITE (6,101) 

101 FORMAT (7H0 (GCKP) ,5X,44HEND OF THIS CASE - READ DATA 
*SE) 

CALL PINP 
GO TO 1 

1000 WRITE (6,1001) 

1001 FORMAT (7H0 (GCKP) ,5X, 46HA FATAL ERROR HAS OCCURRED 
* ATED) 

CALL FI NP 
GO TO 1 

END 

$IEFTC KINPP DECK 

SUBROUTINE KINP 


FOP NEXT CA 


CASE TERMIN 


INPUT CAN BE ACCEPTED IN 
(3) SI UNITS 


(1) INTERNAL (CGS) UNITS, (2) FPS UNITS, 


THE FOLLOWING UNITS ARE USED INTERNALLY 


c 

* 

DISTANCE 

CM 

* 

c 

* 

AREA 

CM**2 

* 

c 

* 

MASS FLOW RATE 

GM/SEC 

* 

c 

* 

PRESSURE 

ATM 

* 

c 

* 

TIKE 

SEC 

* 

c 

* 

VELOCITY 

CM/SEC 

* 

c 

* 

DENSITY 

GM/CC 

* 

c 

* 

TEMFERATUPE 

DEG K 

* 

c 

* 

CONCENTRATION 

MOLE (I) /MASS 

* 


C INTERNAL CORRESPONDENCE 
C * DVAR - DEPENDENT V API ABLE * 

C * IVAR - INDEPENDENT VARIAELE * 


A AO 54 
AA055 
AA066 
AA057 
AA058 
AA059 
AA060 
AA061 
AA062 
AA063 
AA064 
AA065 
AA066 
AA067 
AA068 
AA069 
AA070 
AA071 
AA072 
AA073 
AA074 
AA075 
AA076 
AA077 
AA078 
AA079 
AA080 
AA081 
AA082 
A A083 
AA084 
AA085 
AA086 
AA087 
AA088 
AA089 
AA090 
AA091 
AA092 
AA093 
AA094 
AA095 

AB001 
AB002 
AB003 
AB004 
AB005 
AB006 
AB007 
AB008 
AB009 
A BO 1 0 
A BO 1 1 
AB0 12 
A BO 1 3 
A BO 1 4 
A B0 1 5 
ABO 1 6 
ABO 17 
A BO 1 8 
AE019 
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* AVAR - ASSIGNED VARIABLE 


THE FOLLOWING LOGICAL TAPE UNITS ARE REQUIRED 

* LTHM (4) - FOR THERMODYNAMIC DATA * 

* LDAT (7) - FOR TEMPORARY STORAGE OF DATA CARDS * 

LOGICAL TAPE UNIT ASSIGNMENTS APE SPECIFIED IN 1 NAMBLK ' 


DOUBLE PRECISION DSP, DSPP, DSPNM , DAISP 

LOGICAL ALLM1,CONC,DEUGO,ELTM,EVSTEP,EXCHF,MOLEF,MMHG 

LOGICAL COM BUS, RHOCON, S HOCK, TCON 
LOGICAL NEWPRT, NEXT 

REAL MDOT, IV AR , M ,MW , N , LSUBM , MIXMW , M2 , NEW 

DIMENSION ISS (25) ,TBR (3) ,CXTB (40) , CATB (40) , APPTNT (50) ,THMC (1,2) 
DIMENSION SP (2,4) , DSP (4) , SPP (2, 3) , DSPP (3) ,SPNM (2 ,27) , DSPNM (27) 
DIMENSION SPT (2) , LMT (4) , SUBS (4) ,C (25) ,CX (4) 

DIMENSION CUA (2) ,FUA (2) ,SUA (2) ,CUP1 (2) ,CUP2 (2) ,FUP (2) ,SUP (2) 
COMMON/LTUS/LTHM,LDAT 

COMMON/OPTS/VERS I,T I MEV, VERSA, AREA V, ELI M,TCON, RHOCON, IP PCOD 
CO MMCN/C OND /D VAR, AR EA, MDOT, P,IVAR,V,PHO,T, SIGMA (25) ,LS, ISP 3 , NEXT 
COMMON/RE AC/LSR (4,30) ,XX (30) f PAT£(30) ,LKEQ{30) , DLKEO ( 30) , M M ( 30) , LP 
COMMON/RRAT/A (30) ,N (30) ,EACT(30) ,B (30) ,M (25,30) , ALLMl 
COMMON/AFUN/CN (4) , ITPS Z , LSUBM , ET A , D , VIS C , BET A 
COMMON/SPEC/SNAM (2,3 0) ,MW(25) , W (2 5) , STOIC (2 5,30) ,OMEG A (25, 30) 
COMMON/SINT/HMIN ,HI,HN,HNP1 , HE A X, NH , A VH , EM AX , ERRN, JCV , KOnNT , ERRP 
COMMON/TCOF/TC (7,2,25) , TLOW ,TMID , THI 
COMMON/PRIN/PRINT (50) , NP ,CEND, FVSTFP 

COMMON/XVS A/XTB (4 0) , ATB (40) ,NT,XU,AU (2) ,CX3 , CX2 ,CX1 ,CX0 
COMMON/SNMW/DALSP (75) , ALMW (75) 

COMMCN/KOUT/TITLE (20) , UN ITI, UN ITO, CONC, E XCHR , DELH (30) , FPS , ST , DBUGO 
COMMON/GHSC/GPT (25) , HRT (25) ,SP (25) ,CPR (25) , DCPR (25) 

COMMON/PQSE/PK (2 8) , QK (2 8) , RK (28) , E (28) 

COMMON/SKI P/NEGL (25) ,1 1,12, IT 
COMMON/NECC/RR, MIXMW, M2 , GAMMA, TCPR,R 

COMMON/MISC/TT, PP,CPR0,HP0,ENN,SUMN,ENNL,LLMT (15) , BO (15) 
COMMON/INDX/TP,HP,NLM,NS , I Q 1 , CONVG , KM AT , IMAT 

EQUIVALENCE (C, SIGMA) , (SPNM, DSPNM) , (SP,DSP) , (SPP,DSPP) , (SPT,SP) 
EQUIVALENCE (SPNM, SNAM (1,4)) , (EEFM, SPNM (1,26)), (BLANK, SPNM ( 1,27) ) 
EQUIVALENCE (CX3,CX) 

DATA CU,FU,SU/2HCM,2HET,2HM / 

DATA CUA/4HCM**,1H2/,FUA/4HFT**,1H2/,SUA/UHM**2, 1H / 

DATA CUP1 /4EMMHG,1H /, CUP2/3HATM , 1 H /, FUP/4HLB/F, 4HT**2/, SUP/4HN/M 
**, 2H* 2/ 

DATA NEW , CHANGE, REPEAT/3HNER ,4HCHAN,4HREPE/ 

DATA T APEND, CARDS/3HEND, 4HCARD/ 

N AMELIST/PROB/HMIN , HMAX,HINT,EMAX, ALLM 1 , ELI M , CONC , EXCHR , 

* IPRCOD,ITPSZ, XTB, ATB , NT8, CX3 , CX2 , CX 1 , CXO , LSUBM, ET A, D, VISC, BETA 
*, END,DELP, PRINT, NPRNTS , APRINT , EVSTFP, CEUGO , 

* COMBUS, SHOCK, TCON, RHOCON 

THERMODYNAMIC DATA WILL BE INPUT FROM *»UNTT’» 

READ (5,00) UNIT 


ABO 20 

AB021 

A Bp22 

AB023 

AB024 

AB025 

AB026 

AB027 

A BO 2 8 

AB029 

AB030 

A BO 3 1 

AB032 

AB033 

AB034 

AB035 

ABO 36 

AB037 

AB038 

AB039 

AB040 

AB041 

AB042 

AB043 

AB044 

AB045 

A BO 4 6 

AB047 

AB048 

AB049 

AB050 

AB051 

AB052 

AB053 

AB054 

AE055 

AB056 

AB057 

AB058 

AB059 

A BO 60 

AB061 

AB062 

AB063 

AB064 

AB065 

AB066 

AB067 

AB068 

AB069 

AB070 

AB071 

AB072 

AB073 

AB074 

AB075 

AB076 

AB077 


121 



99 FORMAT (20A4) AE078 

IF (UNIT ,NE. CARDS) GO TO 3 AE079 

AB080 

REWIND LTHM ABORT 

READ (5,98) TLOW , TMI D , T H I AE082 

98 FORMAT (3F10.3) PB0R3 

WRITE (LTHM, 98) TLO U , TUI D ,THI AB0R4 

1 READ (5,97) (SPT (I) , 1= 1 , 2) , (I.MT (T) , SUBS (I) , 1=1 ,4) A B0R5 

97 FORMAT ( 2 A4 , 1 6 X , 4 (A2 , F3. 0) ) AB086 

C 1 ' END* * CARD SIGNALS END OF THERMODYNAMIC DATA A BO 87 

IF (SPT ( 1) -EQ. TAPEND) GO TO 2 AB088 

WRITE (LTHM ,97) (SPT (I ) , 1= 1 , 2) , ( LMT ( I) , S U BS ( I) , 1= 1 , 4) AB089 

READ (5,96) ((THMC(K,I) ,K-1,7) ,1-1,2) AB090 

96 FORMAT (5E15.R) AB091 

WRITE (LTHM, 96) ( (THMC ( K , I) , K= 1 , 7) , 1= 1 , 2) AB092 

GO TO 1 AB093 

2 WRITE (LTHM, 99} TAPEND AB094 

REWIND LTHM AB095 

AB096 

3 CALL CIMAGE AB097 

C READ OUTPUT TITLE AB098 

READ (LDAT, 99) TITLE AB099 

ACTION = NEW AB100 

GO TO 4 AB101 

AB102 

ENTRY RINP AB103 

NEXT = .FALSE. AE104 

CALL CIMAGE AB105 

C READ NEW OUTPUT TITLE AB106 

READ (LDAT, 99) TITLE AB107 

C READ ACTION SWITCH AB108 

READ (LDAT, 99) ACTION AB109 

A B 1 1 0 

IF (ACTION .NE. NEW) GO TO 9 AB111 

C SET STANDARD OPTIONS AB112 

4 CONC = .TRUE. AB113 

EXCHR = .FALSE. AB114 

COMBUS = -FALSE. AB115 

SHOCK - . FALSE. AB1 16 

TCON •= .FALSE. AB117 

RHOCON = .FALSE. A B 1 1 8 

EL TM * .TRUE. AB119 

EVSTEP * .FALSE. AB12C 

DBUGO = .FALSE. AE121 

EMAX = 0.0001 AB122 

ITPSZ = 5 AB123 

ALLM1 = .TRUF. AB124 

DO 5 1=1,25 A B 1 25 

DO 5 J= 1 , 30 A B 1 26 

5 M (I, J) a i. AB1 27 

A B 1 28 

C INITIALIZE AB129 

NEXT = .FALSE. AB130 

HINT = 0. AB131 

NLM = 0 A B 1 32 

NS = 0 A E 1 3 3 

LS = 0 A B 1 3 4 

LF = 0 AE135 

NT = 0 A B 1 36 

DO 6 1=1,40 A P 1 37 

XTB(I) = 0. A B 1 38 

CXTB (I) =0. API 39 

ATB(I) = 0. A B 1 40 
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6 cats (i) = o. fteim 

UNCEND = 0, A81U2 

CEND = 0- AB143 

NP = 0 A B 1 44 

DO 7 1=1,50 AB145 - 

7 PRINT { I ) = 0. AB146 

DO 8 1=1,25 AB147 

DO 8 J=1 ,30 A0148 

8 STOIC (I, J) = 0. AB149 

LSUBM = 0, AB150 

ETA = 0. AB151 

D = 0. AB152 

VISC = 0. AB153 

BETA = 0. AB154 

CX 3 = 0. AB155 

CX2 = 0, AB156 

CXI = 0- AB157 

CXO = 0. AB158 

GO TO 14 AB159 

AB160 

9 IF (ACTION .NF. CHANGE) GO TO 1 3 ABIfil 

C READ REACTION AND (CHANGED) REACTION RATE AB162 

10 READ (LDAT, 95) ( (SP ( K , I) , K= 1 , 2) , 1= 1 , 4) , ? A , TN , TE A AB163 

95 FORMAT (2 ( 2 A4 , 1 X) , 1 X , 2 ( 1 X , 2 A4 ) , 4 X , E 1 5 . 5 , 2 (2 X , F 1 0 . 5 ) ) AB164 

C BLANK CARD SIGNALS END OF CHANGE REACTION LIST AB165 

IF (SP ( 1 , 2) .EQ. BLANK) GO TO 12 AB166 

C SEARCH INPUT REACTION LIST AB167 

DO 11 J= 1 , LR AE168 

N 1 = LSR (1 , J) AB169 

N 2 = LSR (2, J) AB170 

N 3 = LSR (3, J) AB171 

IF (N 1 .EQ. 0) N 1 = 26 AB172 

IF ( N 1 .LT. 0) HI = 27 AB173 

IF (DSPNK(NI) .NE. DSP(1) .OR. DSPNM(N2) .HE. DSP(2) .OR. DSPNM(N3 AB174 
*) .NE. DSP (3) ) GO TO 11 AB175 

A ( J) = TA AB176 

N (J) = TN AB177 

EACT(J) = TEA AB 178 

GO TO 10 A B 179 

11 CONTINUE AB1P0 

C ERROR MESSAGE - NO MATCH FOUND AB1B1 

WRITE (6,101) ( (SP (K,I) ,K=1 ,2) ,1=1 ,4) AB182 

101 FORMAT (7H0 (KINP) ,5X,55HTHE INPUT REACTION LIST DOES NOT CONTAIN T AB183 
*HE REACTION ,2A4,3H + ,2A4,3H = ,2A4,3H + ,2A4) AB184 

NEXT = .TRUE. AB185 

GO TO 10 AB186 

12 READ (LDAT, 99) ACTION AB187 

AB188 

13 IF (ACTION .EC. REPEAT) GO TO 33 AB189 

AB190 

14 LSOLD = LS AB191 

LROLD * LR AE192 

C READ (NEW OP ADDED) REACTION AND REACTION RATE AB193 

15 READ (LDAT, 95) ( (SP (K , I) , K= 1 , 2) , 1= 1 , 4) , T A , TN, TEA AB194 

C BLANK CARD SIGNALS END OF HEW OP ADD REACTION LIST AB195 

IF (SP (1,2) -EQ. BLANK) GO TO 21 AB196 

LR = LR + 1 A B 1 97 

A (LR) = TA AB198 

N (LR) = TN A B 1 99 

E ACT (LR) = TEA AB200 

DO 20 1=1,4 AB201 

IF (SP(1,I) .EQ. EFFM) GO TO 19 AB202 

IF (SP(1,I) .EQ. BLANK) GO TO 219 AB203 

IF (LS . EQ. 0) GO TO 17 AB204 
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C MATCH INPUT SPECIES AGAINST INPUT SPECIES LIST A3205 

DO 16 11=1 , LS AB206 

IF {DSPNM (II) .NE. DSP (I)) GO TO 16 AB207 

LS R (I , LF) = II AB20R - 

GO TO 20 AB209 

16 CONTINUE AB210 

AB211 

C MATCH INPUT SPECIES AGAINST MASTER SPECIES LIST AB212 

17 DO 18 11= 1,75 AB213 

IF (DALSP(II) . NE. DSP (I) ) GO TO 1R AB214 

LS = LS + 1 AB215 

LSR(I,LR) = LS AB216 

SPNM (1,LS) = SP (1,1) AB217 

SPNM ( 2, LS) = SP ( 2 , I) AB218 

MW (LS) = ALMW(II) AB219 

ISS (LS) = II AB220 

GO TO 20 AB221 

18 CONTINUE AB222 

C ERROR MESSAGE - NO MATCH FOUND AB223 

WRITE (6,102) (SP (K, I) ,K=1, 2) AB224 

102 FORMAT (7H0 (KI N P) , 5X, 54HTH E MASTER SPECIES LIST DOES NOT CONTAIN T AB225 
★HE SPECIES ,2A4) AB226 

C ** RUN TERMINATED - ERROR IN INPUT REACTION LIST AB227 

STOP AB228 

AB229 

19 LSR (I , LR) = 0 AB230 

GO TO 20 AB231 

AB232 

219 LSR (I , LR) = -1 AB233 

20 CONTINUE AB234 

GO TO 15 AB235 

AB236 

21 IF (ACTION .NE. NEW) GO TO 25 AB237 

C READ INERT SPECIES (4 PER CARD) AB238 

22 READ (LDAT, 94) ( (SP (K, I) , K= 1 , 2) , 1= 1 , 4) AB239 

94 FORMAT (4{2A4,8X)) AE240 

DO 24 1=1,4 AB241 

C ELANK FIELD SIGNALS END OF INEPT SPECIES LIST AB242 

IF (SP(1,I) .EQ. BLANK) GO TO 25 AB243 

C SEARCH MASTER SPECIES LIST AB244 

DO 23 11=1,75 AB245 

IF (EALSP(II) .NE. DSP (I)) GO TO 23 AB246 

LS = LS + 1 AB247 

SPNM ( 1 , LS) = SP(1,I) AB248 

SPNM (2 , LS) = SP (2,1) AB249 

MW (LS) = A L M W (II) AB250 

ISS (LS) = II AB251 

GO TO 24 AB252 

23 CONTINUE AB253 

C ERROR MESSAGE - NO MATCH FOUND AB254 

WRITE ( 6 , 1 C2) (SP (K,I) ,K=1 ,2) AB255 

NEXT = .TRUE. AB256 

LS = LS + 1 AB257 

MW (LS) = 1. AB258 

24 CONTINUE A 32 59 

GO TO 22 A B 2 6 0 

AB261 

25 IF (LS .EQ. LSOLD) GO TO 30 AB262 
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GET THERMODYNAMIC COEFFICIENTS FROM TAPE 
LSP * ISOLD ♦ 1 
II = ISOLD 

READ (LTHM, 98) TLOW , TMID , THI 

26 READ (LTHM, 97) (SPT (I) ,1=1,2) 

IE {S PT { 1) .EQ. TAPEND) GO TO 29 

READ (LTHM, 96) ( (THMC (K ,1) , K= 1 ,7) ,1=1,2) 

DO 28 I=LSP,LS 

IF (DSPNM(I) .NE. DSP(1)) GO TO 28 
DO 27 KK=1,2 
DO 27 K= 1,7 

27 TC (K, KK , I) = THMC (K, KK) 

II = II + 1 

IF (II . LT. LS) GO TO 26 
GO TO 230 

28 CONTINUE 
GO TO 26 

ERROR MESSAGE - END OF THERMO TAPE REACHED 

29 WRITE (6,103) 

103 FORMAT (7H0 (KINP) ,5X,42HEND OF THERMO TAPE 

*> 

NEXT - .TRUE. 

230 REWIND LTHM 


DETERMINE 

30 LRP = LROLD + 1 
DO 31 1=1, LS 

DO 31 J=1RP,LR 
STOC = 0. 

IF (LSR(1,J) -EQ. 
IF (LSR (2, J) -EQ. 
IF (LSR (3, J) -EQ. 
IF (LSR(4,J) -EQ- 

31 STOIC (I, J) = STOC 


COEFFICIENTS 


I) 

STOC = 

STOC 

- 

1 

I) 

STOC = 

STOC 

- 

1 

I) 

STOC = 

STOC 

+ 

1 

I) 

STOC = 

STOC 

+ 

1 


STOICHIOMETRIC 


GET SPECIES ENTHALPY AT REFERENCE T 
TREE = 298- 15 
CALL THEM (TREF , 0. ) 


TRAL = TREP* 1 . 9871 65 
DO 32 J=LRP,LR 
N 1 = LSR (1 , J) 

N2 = LSR (2, J) 

N 3 = LSR (3,J) 

N4 = LSR (4, J) 

COMPUTE HEAT OF REACTION 
DELH(J) = HPT (N 3) - HRT (N2) 

IF (N 1 -GT. 0) DELH (J) = DELH(J) - HFT(NI) 
IF (N4 .GT. 0) DELH ( J) = DELH(J) + HRT (N4) 
32 DELH (0) = DELH ( J) *TR AL 


LSP3 = LS + 3 
RESET STANDARD OPTIONS 
33 KOLEF = -TRUE. 

MKHG = .FALSE. 

NEWPRT = .FALSE. 


AH263 

AB264 

AB265 * 

AB266 

AB267 

AP268 

AB269 

AB270 

AB271 

AB272 

AB273 

AB274 

AB275 

AB276 

AB277 

AB278 

AB279 

AB280 

AB281 


NOT ALL SPECIES FOUND AB282 

A B28 3 

AB284 

AB285 

AB286 

AB287 

AB288 

AB289 

AB290 

AB291 

AB292 

AB293 

AB294 

AB295 

AB296 

AB297 

AB298 

AB299 

AB300 

AB301 

AB302 

AB303 

AB304 

AB305 

AB306 

AB307 

AB308 

A B 3 0 9 

AB310 

A B 3 1 1 

AB312 

A B 3 1 3 

AB314 

A B 3 1 5 

A B 3 1 6 

A B 3 1 7 

A B 3 1 8 

AB319 



C INITIALIZE AB320 

END = 0- AB321 

DELP = 0. AB322 

NTB = 0 AB323 

NPRNTS = 0 AB324 

DO 34 1=1, 5C AB325 

34 APRINT(I) = 0. AB326 

AREA = 0- AB327 

HDOT = 0. AB328 

P = 0. AB329 

V = 0. AB330 

RHO = 0. A B33 1 

T = 0. AB332 

HN = 0. A 8 333 

ERRN - 0, A B334 

NH = 0 AB335 

AVH * °- AB336 

JCV * 30 AB337 

KOUNT = 0 A B338 

DO 35 1=1,28 AB339 

.. Km = o. mu 

35 E (I) = 0- AB341 

11 “ 0 AB342 

12 = 0 AB343 

AB344 

C BEAD NAME OF INDEPENDENT VARIABLE, NAME OF ASSIGNED VARIABLE , AB345 

C INPUT UNITS, OUTPUT UNITS AB346 

BEAD (LDAT, 92) VERSI , VER S A , UNIT I , UNITO AB347 

92 FORMAT (4(A4,6X)) AB348 

IF (VERSA . E Q. BLANK) VERSA = AREAV AB349 

AB350 

IF (ACTION -NE. NEK) GO TO 80 AB351 

C INITIALIZE STEP SIZE LIMITS AB352 

IF (VERSI .EO. TIMEV) GO TO 78 AB353 

HMIN * 0.0001 AB354 

HM AX = 0. 1000 AB355 

IPRCOD = 2 A B356 

GO TO 79 AB357 

78 HMIN = 0.500E-07 AB358 

HMAX = 0.500E-04 AB359 

IPBCOD = 4 AB360 

79 IF (VERSA . EQ. AREAV) IPRCOD = IPRCOD - 1 AB361 

AB362 

C READ INTEGRATION CONTROLS, PROFILE OPTIONS, AB363 

C PRINT OPTIONS, SPECIALTY SWITCHES AB364 

80 READ (LDAT,PROB) AB365 

AB366 

IF {.NOT. ALLM1 ) GO TO 36 AB367 

DO 77 1=1,25 AB368 

DO 77 J=1,30 AB369 

77 M (I , J) = 1. ab370 

GO TO 40 AB 37 1 

C READ THIRD BODY RATIOS AB372 

36 READ (LDAT, 91) ( (SP (K , I) , K= 1 , 2) , 1= 1 , 4 ) , ( (SPP (K, I) , K= 1 , 2) ,T BR (I) , AB373 

* I=1 ' 3 ) A B 374 

91 FORMAT (2(2A4,1X) , 1 X, 2 ( IX, 2A4) , 1 X, 3 ( 2 A 4 , F6. 4) ) AB375 

C BLANK CARD SIGNALS END OF THIRD BODY RATIO LIST AB376 

IF (SP (1,2) -EQ. BLANK) GO TO 40 AB377 
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: C SEARCH INPUT REACTION LIST A3378 

DO 39 J=1,LR AB379 

N 1 = LSR (1,J) AB380 

N2 = LSR {2, J) AB381 

N3 = LSR (3,J) AB382" 

IF (N 1 . EQ« 0) N 1 - 26 AB383 

IF (N 1 .IT. 0) HI = 27 AB38U 

IF (DSPNM(Nl) .NE. DSP(1) .OR. PSPNM (N2) . NE. DSP(2) .OR. DSPNM(N3 AB385 

*) .NE. DSP (3)) GO TO 39 AB386 

DO 38 1=1,3 AB387 

IF {SPP (1,1) • ECU BLANK) GO TO 38 AB388 

C SEARCH INPUT SPECIES LIST AB389 

' DO 37 11=1, LS AB390 

IF (DSPNM(II) .NE. DSPP (I) ) GO TO 37 AB391 

M ( II , J) = TBP(I) AB392 

GO TO 38 AB393 

37 CONTINUE AB394 

' C ERROR MESSAGE - NO MATCH FOUND A8395 

WRITE (6,104) (SPP (K,I) ,K=1 ,2) AB396 

104 FORMAT (7 HO (KINP) , 5X , 5 3 HTHE INPUT SPECIES LIST DOES NOT CONTAIN TH AB397 

*E SPECIES , 2A4) AB398 

NEXT = .TRUE. AB399 

38 CONTINUE AB400 

GO TO 36 AB401 

39 CONTINUE AB402 

C ERROR MESSAGE ~ NO MATCH FOUND AB403 

WRITE (6,101) ( (SP (K,I) ,K=1 ,2) ,1=1 ,4) AB404 

NEXT = .TRUE. AB405 

GO TO 36 ABU06 

AB407 

C GET INITIAL CONDITIONS AB408 

40 CALL I NIT (ISS, MMHG, MOLEF) AB409 

AB410 

C READ SPECIES TO BE NEGLECTED FROM ERROR CONSIDERATIONS (4 PEP. CARD) AB411 

41 READ (LDAT, 94) ( (SP ( K , I ) , K= 1 , 2 ) , 1 = 1 , 4) AB412 

DO 43 1=1,4 AB413 

C ELANK FIELD SIGNALS END OF NEGLECTED SPECIES LIST AB414 

IF (SP(1,I) . EQ. BLANK) GO TO 44 AB415 

C SEARCH INPUT SPECIES LIST AB416 

DO 42 11=1, LS AB417 

IF (DSPNM(II) .NE. DSP (I) ) GO TO 42 - AB418 

II = II + 1 AB419 

NEGL(II) = II AB420 

GO TO 43 AB421 

42 CONTINUE AB422 

C ERROR MESSAGE - NO MATCH FOUND AB423 

WRITE (6,104) (SP (K,I) ,K=1 ,2) AB424 

NEXT = .TRUE. AB425 

43 CONTINUE AB426 

GO TO 41 AB427 

44 IT = II AB428 

AB429 

C CHECK INPUT COMPOSITION AB430 

CSUM = 0. AB431 

DO 47 1=1 , LS AB432 

47 CSUM = CSUM + C(I) AB433 

IF (ABS (1.-CSUM) .LE. .001) GO TO 48 AB434 

WRITE (6,105) CSUM, ( (SPNM (K,I) , K= 1 , 2) ,C (I) ,I = 1,LS) AB435 
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105 FORMAT (7H0 (KINP) ,5X, 33HINVALTD INPUT COMPOSITION SUM 
* (12X,2A4,E20.5) ) 

NEXT = .TRUE. 

RETURN 

C SET INITIAL STEP SIZE 
48 HI = HINT 

IF (HINT -EC- 0.) HI = H MIN 
IF (ITPSZ .GT. 2) GO TO 53 

IF (ITPSZ .ECU 1 .AND. NTB .ECU 0} GO TO 53 
IF (NTB .HE. 0) NT = NTB 
CON V = 1. 

CON2 - 1. 

IF (VERSA .NE. AREAV) GO TO 203 

XD = CU 

AU (1) = CUA (1) 

AU (2) = CUA (2) 

C CONVERT AREA PROFILE TO INTERNAL UNITS 
IF ( UNITI -NE. FPS) GO TO 201 
XU = FU 
AU (1) = FUA (1) 

AU (2) = FUA (2) 

CON V = 30.48 
GO TO 202 

201 IF (UNITI .NE. SI) GO TO 206 
XU = SU 

AU (1) = SUA (1) 

AU (2) = SUA (2) 

CO NV = 100. 

202 CON2 = CONV*CONV 
GO TO 206 

203 XD - CU 

AU (1) = CUP2 (1) 

AU (2) = CUP2 (2) 

C CONVERT PRESSURE PROFILE TO INTERNAL UNITS 
IF (UNITI .NE. FPS) GO TO 204 
XU = FU 

AU (1) = FUP (1) 

AU { 2) = FUP (2) 

CON V = 30.48 
CON2 = 1./2 116. 2 
GO TO 205 

204 IF (UNITI .NE. SI) GO TO 205 
XU = SU 

AU ( 1) = SUP(1) 

AU (2) = SUP (2) 

CON V = 100. 

CON 2 = 1./1. 01 325E+05 

205 IF (.NOT. MMHG) GO TO 206 
AU (1) = CUP1 (1) 

AU (2) = CUP 1 (2) 

CON2 - 1./760. 

206 IF (VERSI . EO. TIMEV) CONV = 1 
IF (ITPSZ .EO. 2) GO TO 208 

DO 207 1=1, NTB 
CXTB(I) = XTB (I ) *CON V 

207 CATB(I) = AT B (I) *CON2 
GO TO 53 

208 DO 208 1=1,4 


,F11.6// AB436 

AB437 
AB438 
AB439 
AB440 
AB441 
AB44*2 
AB443 
AB444 
AB445 
AB446 
AB447 
AB448 
AB449 
AB450 
AB451 
AB452 
AB453 
AB454 
AB455 
AB456 
AB457 
AB458 
AB459 
AB460 
AB461 
AB462 
AB463 
AB464 
AB465 
AB466 
AB467 
AB468 
AB469 
AB470 
AB471 
AB472 
AB473 
AB474 
AB475 
AE476 
AB477 
A B478 
AB479 
AE480 
AB481 
AB4B? 
AB483 
AB484 
AB485 
AB486 
AB487 
AB488 
AP489 
AB490 
AB491 
AB492 
A B 4 9 3 
AB49(J 
AB495 
AB496 
AB497 
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209 CN (I) = CX(I)*CON2 

53 IF ((NPRNTS . NE. 0) .OR. {DELP .NE. 0.) .OP. (F.ND -NE. 0.)) 
* = -TRUE. 

IP (-NOT. NEWPPT) GO TO 59 
IF (END . NE. 0.) UNCEND = END 
C PREPARE PRINT STATIONS 
IF (EVSTEP) GO TO 59 
IF (NPRNTS -NE. 0) GO TO 57 
IF (DELP -NE. 0.) GO TO 54 
DELP = (ONCEND - IV AR) /24. 9999 

54 PRINT (1) - I VAR + DELP 
DO 55 1=2,50 

PRINT (I) = PRINT (I~1) + DELP 
IF (PRINT (I) -GE. UNCEND) GO TO 56 

55 CONTINUE 

56 NP = I 

PRINT (NP) = UNCEND 
GO TO 59 

57 NP = NPRNTS 

IF ( APRINT ( 1) -EQ. 0.) GO TO 59 

CO NV =1. . . ^ o.n 

IF (IPRCOD .EQ. 2 .OR. IPRCOD . FO. 4} GO TO 210 

IF (UNITI -EQ. EPS) CONV = 30.40 
IF (UNITI .EQ. SI) CONV = 100. 

CON2 = CONV+CONV 
GO TO 213 

210 CON2 = 1- 

IF (UNIT! .NE. FPS) GO TO 211 
CONV = 30.48 
CON2 = 1./2116.2 
GO TO 212 

211 IF (UNITI -NE. SI) GO TO 212 
CONV = 100. 

CON2 = 1./1.01325E+05 

212 IF (MMHG) CON2 = 1./760. 

213 IF (VERSI .EQ. TIMEV) CONV = 1. 

CALL CUBS (CAT8,CXTB , NT) 

DO 58 1=1, NPRNTS 

APRINT (I) = APRINT (I) *CGN2 

CALL CINP (APRINT (I) , PRINT (I) ,DU«1 ,DUM2) 

58 PRINT (I) = PRINT (I) /CONV 

59 IF (ITPSZ .EQ. 1) CALL CUBS (CXTB , CATB , NT) 

IF (UNITI .NE. FPS) GO TO 63 
C CONVERT FROM FPS UNITS TO INTERNAL (CGS) UNITS 
IF (VERSI .NE. TIKEV) GO TO 60 
DVAR = DVAR+30.48 
GO TO 61 

60 IVAR = IVAR*30.48 

61 IF (MMHG) P = P*2. 7845 
P = P/2116.2 

AREA = APFA*929. 0304 
MDOT = MPOT*453. 59237 
V = V * 3 0 . 4 8 
RHO = RHO/62.43 
T = T/1 .8 

IF ((.NOT. NEWPRT) .OR. VFPSI .FQ. TIMEV) GO TO 68 
CEND = UNCEND* 3 0.48 
DO 62 1=1, NP 


AB498 
AB499 
NEWPPT AE500 
AB501 
AB502 
AB503 
AB504 
AB505 
AB506 
AB507 
AB508 
AB509 
AB510 
AB511 
AB512 
AB513 
AB514 
AB515 
AB516 
AB517 
AB518 
AB519 
AB520 
A8521 
AB522 
AB523 
AB524 
AB525 
AB526 
AB527 
AB528 
AB529 
AB530 
AB531 
AB532 
AE533 
AB534 
AB535 
AB536 
AB537 
AB538 
AB539 
AS540 
AB541 
AB542 
AB543 
AB544 
AB545 
AB546 
AB547 
AB548 
AB549 
AB550 
AB551 
AB552 
AE553 
AB554 
AB555 
AB556 
AB557 
AB558 
A 3559 
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62 PRINT (I) = PRINT (I) *30.48 AE560 

GO TO 68 AB561 

63 IF (UNTTT . NE. SI) GO TO 67 AB562 

C CONVERT FROM SI UNITS TO INTERNAL (CGS) UNITS AB563 

IF (VERSI . NE, TIMEV) GO TO 64 AB564 , 

DVAR - DV AR * 1 00. AB565 

GO TO 65 AB566 

64 IVAR = IVAR*100. AB567 

65 IF (MMHG) P = P*133.3224 AB568 

P = P/1. 0 1325E+05 AB569 

AREA = AREA* 1 0000. AB570 

MDOT = MOOT* 1000. AB571 

V = V*100. AB572 

FHC = RHO*. 001 AB573 

IF ((.NOT. NEWPRT) .OR. VERSI . EQ. TIMEV) GO TO 68 AB574 

CEND * U NCEND* 1 00. AB575 

DO 66 1 = 1 , NP AB576 

66 PRINT (I) = PRINT (I) *100. AB577 

GO TO 68 AB578 

AB579 

67 CEND = UNCEND AB580 

IF (MMHG) P = P/760. AB581 

AB582 

68 MIXMW = 0. AB583 

AB584 

IF (.NOT. MOLEF) GO TO 71 AB585 

C MOLE FRACTION TO MOLES (I) /MASS (MIXTURE) AB586 

DO 69 1=1, LS AB587 

69 MIXMW = MIXMW + C (I) *MW (T) AB588 

DO 70 1=1, LS AB589 

70 SIGMA (I) = C (I) /MIXMW AB590 

GO TO 73 AB591 

AB592 

C MASS FRACTION TO MOLES (I) /MASS (MIXTURE) AB593 

71 DO 72 1=1, LS AB594 

SIGMA (I) = C (I) /MW (I) AB595 

72 MIXMW = MIXMW + SIGMA(I) AB596 

MIXMW = 1. /MIXMW AB597 

AB598 

C UNIVERSAL GAS CONSTANT IN ATM-CC/MOLE-DEG K AB599 

73 R R = 82.056 AB600 

C UNIVERSAL GAS CONSTANT IN ERGS/MOLE-DEG K AB601 

P = 8. 3 1 4 3E + 07 AB602 

AB603 

IF (M2 .EQ. 0. .AND. .NOT. (CCMBUS .OR. SHOCK)) GO TO 81 AB604 

CALL THRM (T r 1.) AB605 

CPRO = 0. AB606 

DO 74 1=1, LS AB607 

74 CPRO = CPRO + CPR (I) * SIGMA (I) AB608 

GAMMA = CPRO/ (CPRO - 1. /MIXMW) AB609 

IF (V .NE. 0.) GO TO 81 AB610 

V = SQRT(M2*R/MIXMW*GAMMA*T) AB611 

AB612 

81 IF (P .EQ. 0.) GO TO 82 AB613 

RHO = P*MIXMW/ (RR*T) AB614 

GO TC 75 AB615 

82 IF (RHO .EQ. 0.) GO TO 83 AB616 

P = RHO*RR*T/MIXMW A B6 1 7 

GO TO 75 AB61P 

AB619 
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83 IP (IPRCOD -GT. 2) GO TO 84 AB620 

X = IVAR AB621 

IF (VERSI -EQ. TIMEV) X = DVAR AB622 

CALL CINP (X,AVAR,DUMl ,DUM2) AB623 

GO TO 85 AB824 

84 TIME = DVAR AB625 

IF (VERSI . EQ. TIMEV) TIME = IVAR AB626 

CALL CINP (TIME, AVAR, DUM1,DUM2) AB627 

85 IF (VERSA . EQ- AREAV) GO TO 86- AB628 

P - AVAR AB629 

GO TO 81 AB630 

86 AREA * AVAR AB631 

RHO = MDOT/ ( AREA*V) AB632 

GO TO 82 AB6.33 

AB634 

75 IF (MDOT -EQ. 0.) MDOT = RHO*ARFA*V AB635 

AB636 

IF {-NOT- (COMBUS -OR. SHOCK)) RETURN AB637 

HRO = 0- AB638 

DO 76 1=1, LS AB639 

76 HRO = HRO ♦ HRT (I) *SIGM A (I) AB640 

HRO = HR0*T AB641 

M2 = V/R*V/T*MIXMW/GAM M A AB642 

AB643 

C EQUILIBRIUM COMBUSTION AB644 

IF (COMBUS) CALL COMB AB645 

AB646 

C EQUILIBRIUM AND FROZEN SHOCK AB647 

IF (SHOCK) CALL SHOK AB648 

AB649 

RETURN AB650 

END AB651 

$IBFTC INITT DECK 

SUBROUTINE IN IT (ISS, MMHGS , MOLEFS) AC001 

AC002 

C BEAD INITIAL CONDITIONS AC003 

AC004 

LOGICAL MMHG,MOLEF, MMHGS, MOLEFS AC005 

AC006 

REAL IVAR, MDOT, M2, MACH AC007 

REAL N,NF,NF2,NF3,NH2,NH3,N0,N02,N2,N2H4,N20,N204,NE,KR,NH, NOP AC008 

AC009 

DIMENSION ISS (25) ,TINP (75) AC010 

AC011 

COMMON/LTUS/LTHM ,LDAT AC012 

COMMON/OPTS/VERSI,TIMEV,DUM1 (6) AC013 

COMMON/COND/DVAR , AREA, MDOT , P, IV AP , V , RHO ,T , CONC ( 25) , LS , DU M2 (2) AC014 

COMMON/NECC/EUM3 (2) ,M2,DUM4 (3) AC015 

COMMON/FAKE/ AC016 

1 AR,B,BF,BF2,EF.3,BH,BH2,BH3,S0,E0F,B0F2,B02,B203,BR,BR2,C,CF,CF2, AC017 

2 CH,CH2,CH3, CH4, CN , CO, CO 2, C2F2,C2H,C2K2,C2H4 ,C2N ,CL ,CLF , CLF 3 ,CL2 , AC018 

3 F,F2,H,HCN,HCL,HF,H02,H2,H20,H202, HE,N,NF, NF2, NF3, NH2, NH3 , NO, NO 2, AC019 

4 N2,N2H4, N2C, N204 , N E r 0 , 0 H, 0 2 , HNO , KR , XE , NH , HCO, CH20 , NOP , OP , 0 M , 02 M , E AC02 0. 

AC021 

EQUIVALENCE (TINP(1),AR) AC022 

AC023 

NAMELIST/START/X, AREA, MDOT, P, TIME, V, RHO, T, MACH, MMHG , MOLEF, AC024 

1 AR , B, BF , BF2 , BF3 , BH , BH2 , BH3 , BO , EOF , BO F2 , B02 , B203 , BR , BF2 , C, CF, CF2 , AC025 

2 CH,CH2,CH3,CH4,CN,C0,C02,C2F2,C2H,C2H2,C2H4,C2N,CL,CLF,CLF3,CL2, AC026 

3 F,F2,H,HCN,HCL,HF,H02,H2,H20,H202,HE,N,NF, NF2,NF3,NH2,NH3,N0,N02, AC027 

4 N2,N2H4, N2C,N2O4,NE,O,GH,02,HN0,KR,XE,NH,HCO,CH2O,N0P,OP,OM,O2M,E AC028 

AC029 
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u u 


x =0. ACC30 

TIME = 0. AC03 1 

MACH = 0. AC032 

DO 1 11=1,75 AC033 

1 T INP (II) = 0. ACO 34 

MM HG - MMHGS AC035 , 

MOLEF = MOL EPS AC036 

AC037 

READ (LDAT, START) AC038 

AC039 

MMHGS = MMHG AC040 

MOLEFS = MCLEF AC041 

IF (VERSI . EQ. TIMEV) GO TO 2 AC042 

IVAF = X AC043 

DVAR = TIME AC044 

GO TO 3 AC045 

2 IVAF = TIME AC046 

DVAF = X AC047 

A CO 4 8 

3 M2 = MACH*M ACH AC049 

DO 4 11= 1 , LS AC050 

JJ = ISS (II ) AC051 

4 CONC(II) = TINP(JJ) AC052 

AC053 

RETURN AC054 

END AC055 

SIEFTC CDTMAG DECK 

SUBROUTINE CIMAGE AD001 

AD002 

THIS ROUTINE READS EACH DATA CARD, PRINTS A CARD IMAGE, AND STORES AD003 
THE IMAGE FOR LATER FORMATTED INPUT AD004 

AD005 

DIMENSION CARD (20) AD006 

AD007 

COMMON/LTUS/LTHM ,LDAT AD008 

AD009 

EQUIVALENCE (WORD, CARD) AD010 

A DO 1 1 

DATA FINIS, ELANK/4HFINI, 1H / AD012 

A DO 1 3 

READ (5,101) CARD A D0 1 4 

101 FORMAT (20A4) A D0 1 5 

REWIND LDAT AD016 

A DO 17 

WRITE (6,100) A DO 1 8 

100 FORMAT (1H1 ,56X, 18H** DATA CARDS **// 37X , 1 H 1 , 9 X, 1 H2 , 9 X , 1 H 3 , 9X , AD019 

* 1H4,9X,1H5,9X,1H6,9X,1H7,9X,1H8/24X,5HCC 1 , 8X , 8 ( 1 HO , 9 X) //) AD02C 

GO TO 2 AD021 

AD022 

1 READ (5,101) CARD AD023 

2 DO 3 1=1,20 A DO 24 

IF (CARD (I) .NE. BLANK) GO TO 4 AD025 

3 CONTINUE AC026 

WRITE (6,102) AD027 

102 FORMAT (60X , 1 6H- BLANK CARD -) AD02R 

GO TO 5 AD029 

4 WRITE (6,103) CARD AD030 

103 FORMAT (28X,20A4) AD031 

IF (WORD .EC- FINIS) GO TO 6 AD032 

5 WRITE (LDAT, 101) CARD AD033 

GO TO 1 AD034 

AD035 
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6 REWIND LDAT 


RETURN 

END 

S5IEFTC NAMBLK DECK 
BLOCK DATA 

C ALPHANUMERIC DATA EOS TESTING AND OUTPUT 
COMMON/LTUS/LTHM ,LD AT 

COMMON/OPTS/DUM1 ,TIME,DUM2, AREA, DU M3 (4) 

COMMON/SPEC/SN AM (2,3) ,DUM4(2,25) , EFFM (2) , BLANK (2) ,DUM5 (25,62) 
COMMON/KOUT/DUM6 (54) ,FPS,SI, DUM7 

C LOGICAL TAPE UNIT ASSIGNMENTS 

DATA LTHH, LDAT/4 ,7/ 

C ALPHANUMERIC DATA 

DATA TIME, AB EA/4HTIME r 4H ARE A/ 

DATA SNAM,EFFM,BLANK/1HV,1H , 3 HRHO , 1 H , 1 HT , 1 H ,1HM,1H ,1H ,1H / 
DATA FPS,SI/3HFPS,2HSI/ 

END 

$1 EFTC BLCK DECK 
BLOCK DATA 

C SPECIES NAMES AND MOLECULAR WEIGHTS 

CGMMON/SNMW/ALSP (2,7 5) , ALMW (75) 


DATA ALSP/ 

* 4HAR , 4 H 

* 4HBF3 ,4H 

* 4 HBO , 4 H 

* 4HE203 , 4H 

* 4HCF ,4H 

* 4HCH3 ,4H 

* 4HC02 , 4 H 

* 4HC2H4 , 4H 

* 4 HCLF3 , 4H 

* 4HH ,4H 

* 4HH02 ,4H 

* 4HHE , 4 H 

* 4HNF3 , 4 H 

* 4HN02 ,4H 

* 4HN2C4,4H 

* 4H02 ,4H 

* 4 HNH , 4 H 

* 4HO— , 4 H 

* 6 * 0 ./ 

DATA ALMW/ 

* 39.948, 

* 67.806, 

* 26.810, 

* 69.620, 

* 31.010, 

* 15.035, 

* 44.010, 

* 28.054, 

* 92.448, 

* 1.00797, 


, 4HB ,4H 
, 4HBH , 4 H 
, 4HB0F , 4 H 
, 4HBR , 4 H 
, 4HCF2 , 4 H 
, 4HCH4 ,4H 
, 4HC2F2, 4H 
, 4HC2N ,4H 
, 4HCL2 ,4H 
, 4HHCN , 4 H 
, 4HH2 , 4 H 
, 4HN ,4H 
, 4HNH2 , 4 H 
, 4HN2 , 4 H 
, 4HNE , 4 H 
, 4HHN0 , 4 H 
, 4HHC0 , 4 H 
, 4H0* , 4 H 


10.8 11 , 
11.819, 
45.807, 
79.909, 
50.008, 
16.043, 
62.019, 
38.029, 
70.906, 
27.026, 


, 4HBF ,4H 
, 4H3H2 , 4 H 
, 4HBOF2, 4H 
, 4HBP2 ,4H 
, 4HCH ,4H 
, 4HCN ,4H 
, 4HC2H ,4H 
, 4HCL , 4 H 
, 4HF ,4H 
, 4HHCL ,4K 
, 4HH20 ,4H 
, 4 HNF , 4 H 
, 4HNH3 ,4H 
, 4HN2H4,4H 
, 4 HO ,4H 
, 4HKP , 4 H 
, 4HCH20, 4H 
, 4H02- ,4H 


29.909, 

12.827, 

64.807, 

1 59.82, 
13.019, 
26.018, 
25.030, 
35.453, 

1 8. 9984, 
36.461 , 


, 4HBF2 ,4H 
, 4HEH3 ,4H 
, 4HB02 ,4H 
, 4 HC ,4H 
, 4HCH2 ,4H 
, 4HCO , 4 H 
, 4HC2H2 , 4H 
, 4HCLF , 4H 
, 4HF2 ,4H 
, 4 HHF , 4 H 
, 4HH202,4H 
, 4HNF2 , 4H 
, 4HNO ,4H 
, 4HN20 , 4 H 
, 4HOH , 4 H 
, 4 HXF , 4 H 
, 4HN0+ ,4H 
, 4HE , 4 H 


48.808, 
13. 835, 
42. 810, 
12 . 0112 , 
14. 027, 
28.011 , 
26. 038, 
54.45 1 , 
37.997, 
20.006, 


A DO 3 6 
A DO 37 
A DO 3 8 
AD039 

AE001 
1AE002 
A E 0 0 3 , 
AE004 
AE005 
AE006 
AE007 
AE008 | 
AE009 
AEO 10 
A EO 1 1 
AE012 
AEO 1 3 
AEO 14 
AE015 
AEO 16 
AEO 1 7 
AE018 

AF001 

AF002 

AF003 

AF004 

AF005 

AF006 

AF007 

AFOOR 

AF009 

AF010 

AF011 

AF012 

AF013 

AFO 14 

AF015 

AF0 1 6 

AF017 

AFO 18 

AF019 

AF020 

AF021 

AF022 

AF023 

AF024 

AF025 

AF026 

AF027 

AF028 

AF029 

AFO 30 

AF031 

AF032 

AF033 

AFO 3 4 

AF035 

AF036 

AF937 

AF038 
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34.014, 

52.004, 

30.006, 
44.012, 

17. 007, 

131. 30, 

30.00565, 

5. 40597E-Q4, 


END 

$ I BFTC COMBB DECK 

SUBROUTINE COMB 

C EQUILIBRIUM COMBUSTION CALCULATIONS 


* jj.ltS’D, 

* 4.0026, 

* 71.002, 

* 46.006, 

* 92.009, 

* 31.997, 

* 15.015, 

* 15.99995, 


2.0159, 

14.007, 

16.023, 

28.013, 
20. 183, 

31.014, 
29.0186, 
15. 99885, 


18 . 014 , 
33.005, 
17. 031 , 
32.045, 

1 5. 9994 , 
83. 800, 
30.026, 
31.99935, 


DOUBLE PRECISION EN, EN L N , DELN 
LOGICAL TP, HP 


COM MON/CO ND/EVA R , AREA, M DOT, P, IVA R, V , RHO, T, SIGMA (25) 
COMMON/SPEC/DCM1 (6) ,SPNM (2,27) ,DUM2 (25,62) 

COM MON/S PECES/EN ( 25) , EN L N ( 2 5) , DELN (25) , A (15, 25) 
COMMON/INDX/TP,HP,DU«3 (6) 

COM MON/MISC/TT ,PP,CPR0,HR0, ENN,DUM4(32) 


,LS,LSP3, NEXT 


TP = .FALSE. 
HP = .TRUE. 


CALL ELEttNT (LS , SPNM , SIGMA) 
ENI =0. 1/FLOAT (LS) 

ENIL = ALOG (ENI) 

DO 3 1=1, LS, 

EN (I) = ENI 
3 EN LN (I) = ENIL 
ENN = 0.1 

TT = 3800. 

PP = F 
CALL EQLBRM 

CALL ECOUT 


RETURN 

END 

$ I BFTC SHOKK DECK 

SUBROUTINE SHOK 


EQUILIBRIUM AND FROZEN SHOCK CALCULATIONS 

DOUBLE PRECISION EN, FNLN, DELN 
DOUBLE PRECISION DLVTP, DLVPT 

LOGICAL TP, HP, EQL 

REAL MIXMW 


CO MMON/COND/DVAR , AREA, M COT, P, IVA R, V , RHO , T, SIGMA (25) 
COM MON/NECC/PR ,MIXMW, M2, GAMMA, TCPR,R 
COMMON/SPFC/DUM1 (6) ,SPNM (2,27) ,DUM2 (25,62) 

COM MON/S PECES/EN (25) , ENLN (25) , DELN ( 25) , A ( 15 , 25) 
COMMON/PCINTS/DLVTP, DLVPT, GAM , WM 
COMMON/INDX/TP,HP, DUM3 (6) 

COMMCN/MI SC/TT , PP , CPRO , HP 0 , ENN , DTJM 4 ( 3 2) 


, LS , LSP3 , NEXT 


AF039 
AF040 
AF041 
AF042 
AF043 
A F 0 4 4 
AF045 
AF046 
AF047 
AF048 
AF049 

AG001 

AG002 

AG003 

AG004 

AG005 

AG006 

AG007 

AG008 

AG009 

A G0 1 0 

AG0 1 1 

AGO 1 2 

A G0 13 

AG0 1 4 

AGO 1 5 

A G0 1 6 

AG017 

AG018 

A GO 1 9 

A GO 20 

AG021 

AG022 

AG023 

AG024 

AG025 

AG026 

AG027 

AG028 

AG029 

AG030 

A GO 3 1 

A GO 32 

A GO 3 3 

AHOO 1 
AH002 
AH003 
AH004 
AH005 
AH006 
AH007 
AH008 
A H 0 0 9 
AH010 
A HO 1 1 
A H 0 1 2 
A HO 1 3 
A HO 1 4 
A HO 1 5 
A HO 16 
A HO 1 7 
AHO 1 8 
A HO 1 9 


a 
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C INITIALIZE 

TP = .TRUE. 

HP = .FALSE. 

C EQUILIBRIUM SHOCK 

CALL ELEMNT (LS,SPNM , SIGMA) 

GAM = GAMMA 

ENI - 0. 1/ELOAT (LS) 

ENIL = ALOG (ENI) 

DO 2 1=1, LS 
EN (I) = ENI 

2 ENLN (I) = ENIL 
ENN = 0.1 

EQL = .TRUE. 

CALL SHOCKS (EQL) 

CALL ESOUT 

C FROZEN SHOCK 
WM = MIXMW 
DLVTP = 1 . DO 
DLVPT = -1-DO 
GAM = GAMMA 
DO 3 1=1, LS 

3 EN (I) = SIGMA (I) 

EQL = .FALSE. 

CALL SHOCKS (EQL) 

CALL FSOUT 

RETURN 

END 

SIEFTC SHCKS DECK 

SUBROUTINE SHOCKS (EQL) 

C SHOCK EQUATIONS 

DOUBLE PRECISION A , Y , A A 

DOUBLE PRECISION SIGMA, ENLN , DELN 

DOUBLE PRECISION DLVTP, DLVPT 

LOGICAL EQL, NEXT 

REAL MIXMW, M2 

DIMENSION A (2,3) ,Y (3) 

CO M MON/CO ND/D VAR , ARE A, M COT ,P,IVAR,V ,RHO,T, DU M 1 (25) , LS , LSP3 , NEXT 
COMMCN/NECC/RR,MIXMW , M2, DU M2, TCPR, R 

COMMON/GHSC/GPT (25) , HRT (25) ,SP (25) ,CPR (25) , DCPR (25) 
COMMCN/SPECES/STGM A (25) , ENLN (25) , DELN (25) , A A A { 1 5 , 25) 
COMMON/POINTS/DLVTP, DLVPT, GAMMA, WM 
COM MON/MI SC/TT ,PP,CPR0,HR0,DUM3 (33) 

C INITIAL ESTIMATE OF PRESSURE AND TEMPERATURE RATIOS 
P21 = (2. *GAMMA*M2 - GAMMA + 1.)/(GAMMA + 1.) 

T21 = P21* (2./M2 ♦ GAMMA - 1.)/(GAMMA + 1.) 

IE (EQL .AND. T*T21 . GT. 2000.) T21 = 0.7*T21 + 600. /T 

CONST = MIXMW*V/R*V/T 
P2 1 L = ALOG (P 2 1 ) 

T21L = ALOG (T21) 


AH020 
AH021 
AH022 
Aft023 
AH024 
AH025 
AH026 
A HO 27 
AH02R 
AH029 
AH030 
A HO 3 1 
AH032 
AH033 
AH034 
AH035 
AH036 
AH037 
AH038 
AH039 
AH040 
AH041 
AH042 
AHO 4 3 
AH044 
AH045 
AH046 
AH047 
AH048 
AH049 

AI001 
AI002 
AI003 
AI004 
AI005 
AI006 
AI007 
AI008 
AI009 
AI010 
AI011 
AI012 
AI013 
A 10 1 4 
AI015 
A 10 16 
AI017 
AI018 
A 10 1 9 
A 1020 
AI021 

A 1022 
A 10 23 
AT024 
A 1025 
A 1026 
AI027 
A 1 0 2 8 
A T 0 2 9 
A 1 0 3 0 
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C ITERATE OK PRESSURE AND TEMPERATURE PATIOS AI031 

DC 4 K=1,8 A 10 32 

PP = P21*P A 10 33 

TT = T21*T A 1 0 3 4 

IF (ECL) CALI EOLBRM AI035 

CALL THRM (TT,1.) AI036 

IF (NEXT) GC TO 5 AI037 

TCPR = 0. AT038 

THR = 0. AI039 

DO 2 1 = 1, LS A 1040 

TCPP = TCPR + CPR (I) *SIGMA (I) AI041 

2 THR = THR + HRT(I) *SIGMA (I) AI042 

THR = THR*TT AI043 

RH012 = T2 1/P21*MIXMW/WM AI044 

AI045 

AA = R HO 1 2*CONST AT046 

A (1,1) = -AA*DLVPT - P21 AI047 

A (1,2) = -AA*DLVTP AI048 

A (1,3) = P21 - 1. + CONST* (PH012 - 1.) AI049 

AA = (V*RH0 1 2) **2/R AI050 

A (2,1) = -AA + DLVPT + TT* (DLVTP - 1.)/WM AI051 

A (2,2) = -AA*DLVTP - TT*TCPR AI052 

A (2,3) = THR - HRO - V*V*(1. - RHO 1 2* RH0 1 2) / (2 . *R) AI053 

AI054 

Y ( 3) = A (1, 1) *A (2, 2) - A (1, 2) *A (2, 1) AI055 

Y (2) = (A (1 , 1) *A (2,3) - A (2, 1) *A (1, 3)) /Y (3) AT056 

Y ( 1 ) = (A(1,3)*A(2,2) - A (2,3) *A (1,2) )/Y (3) AI057 

AI0S8 

Y 1 = DA BS { Y { 1 ) ) AI059 

Y 2 = DABS (Y (2) ) AI060 

IF ( Y 2 .GT. Y 1 ) Y 1 = Y 2 AI061 

IF ( Y 1 .IT. 0.5E-04) RETURN AI062 

Y 1 = Y 1/0. 4C54652 AI063 

IF (Y 1 .LE. 1.) GO TO 3 AI064 

Y ( 1 ) = Y ( 1 ) / Y 1 AI065 

Y{2) = Y(2)/Y1 AI066 

A 1067 

3 P21L = P21L + Y (1) AI068 

T21L = T21L + Y (2) AI069 

P21 = EXP (P2 1L) AI070 

T21 = EXP (T2 1L) AI071 

4 CONTINUE AI072 

AI073 

5 IF (.NOT. ECL) GO TO 6 AI074 

WRITE (6,100) A 1075 

100 FORMAT (9H0 (SHOCKS) ,5X, 36HEQUTI.TBRIUM SHOCK CALCULATION FAILED) AI076 

NEXT = .FALSE. AI077 

PETURN AI078 

AI079 

6 WRITE (6,101) A 1080 

101 FORMAT (9H0 (SHOCKS) , 5X, 31HFROZEN SHOCK CALCULATION FAILED) AI081 

NEXT = .TRUE. AI082 

RETURN AI083 

A 1084 

END AI085 

$ I EFTC ELMENT DECK 

SUBROUTINE ELEHNT (LS, DSPEC, SIGMA) AJ001 

A J 0 0 2 

C COLLECT ELEMENT DATA FOR EQUILIBRIUM SHOCK OR COMBUSTION AJ003 

A J 0 0 4 

DOUBLF PRECISION DSPEC, DSP AJ^05 

DOUBLE PRECISION £N,ENLN,DELN A J R C 6 

A J 0 0 7 
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DIMENSION DSPEC (25) , SIGMA (2 5) ,SP(2) , LMT (4) , SUBS (4) 
COMMON/LTUS/LTHM , LDAT 

COMMON/SPECES/EN (25) ,ENLN (25) , DELN (25) , A (15,25) 
COMMON/MISC/DUM1 (7) , LLMT ( 1 5) , BO (1 5) 
COMMON/INDX/TP,HP, NLM,NS,IQl,DUM2 (3) 


EQUIVALENCE (DSP , SP ( 1 ) ) 


IE (LS „ EQ. NS) GO TO 10 


C 


CONSTBUCT LIST OF ELEMENTS PRESENT 
BEAD (LTHM,99) DUMMY 

2 READ = (LTHH r 99) (SP (K) . K=1, 2) , (1ST (K) ,SSBS<K) .DOMMI ,DO«2. 

* DUMM3 


99 FORMAT (2 A4 , 16 X , 4 (A2 , F3 . 0) / A 1/A 1/A 1 ) 
DO 8 I=NSP, LS 

IF (DSPEC (I) . NE. DSP) GO TO 8 

DO 3 L= 1 , 1 5 

3 A (L , I) = 0. 

IF ( NLM .NE. 0) GO TO 4 
NLM = 1 

LLMT (NLM) = LMT ( 1) 

4 DO 6 K= 1,4 

IF (SUBS (K) - EQ. 0.) GO TO 7 

DO 5 L= 1 , NLM 

IF (LLMT (L) .NE. LMT (K) ) GO TO 5 
A (L, I) = SUBS (K) 

GO TO 6 

5 CONTINUE 

NLM * NLM + 1 
LLMT (NLM) = LMT (K) 

A (NLM, I) = SUBS (K) 

6 CONTINUE 

7 NS = NS + 1 

IF (NS - LT. LS) GO TO 2 
GO TO 9 

8 CONTINUE 
GO TO 2 

9 REWIND LTHM 


C COMPUTE ELEMENT CONCENTRATION IN GM-ATOMS/GM 

10 DO 11 L= 1 , NLM 
BO (L) = 0. 

DO 11 1=1, LS 

11 BO (L) = BO (L) + A (L, I) *SIGMA (I) 

IQ 1 = NLM * 1 

RETURN 

END 

SIBFTC EQUIL DECK 

SUBROUTINE EQLBRM 

C CALCULATE EQUILIBRIUM COMPOSITION AND PROPERTIES 

DOUBLE PRECISION G,X,SUM 
DOUBLE PRECISION EN, ENLN , DELN 
DOUBLE PRECISION DLVTP , DLVPT 

LOGICAL CONVG,ISING,LGGV , TP, NEXT 


AJ008 

AJ009 

A JO 10 

AJ0 1 1 

A JO 1*2 

A J0 1 3 

A JO 1 4 

A JO 1 5 

A J0 1 6 

AJ017 

A JO 1 8 

AJ019 

AJ020 

AJ021 

AJ022 

AJ023 

A J024 

AJ025 

AJ026 

AJ027 

AJ028 

A J029 

A JO 30 

A JO 3 1 

A JO 32 

A JO 33 

AJ034 

A J035 

A J036 

A JO 37 

A JO 3 8 

AJ039 

AJ040 

A JO 4 1 

A JO 42 

AJ043 

AJ044 

AJ045 

AJ046 

AJ047 

AJ048 

A J 0 4 9 

AJ050 

AJ051 

AJ052 

AJ053 

AJ054 

AJ055 

A J056 

AJ057 

AJ058 

AKOO 1 
AK002 
A K 0 0 3 
AK004 
A K 0 0 5 
AK006 
AK007 
AKOOR 
AK009 
AK010 
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DIMENSION PROW (18) AK011 

AK012 

COMMON/FCINTS/DLVTP, DLVPT, GAMMA, WM AK013 

COMMON/SPECES/EN (25) f ENLN (25) , DELN (25) , A ( 1 5, 25) A KOI 4 

COMMON/MISC/TT ,PP,CPR0,HSU30,ENN,SUMN,ENNL,LLMT (15) , BO (15) A KOI 5 * 

COMMON/INDX/TP,HP, NLM, NS , IQ 1 , CONVG , KM AT, I MAT AK016 

COMMON/GHSC/GRT (25) , HRT (25) ,SF (25) ,CPP (2 5) r DCPP (25) A KOI 7 

COM MON/M AT X/G (28,28) ,X (28) AK018 

COMMCN/NECC/DUM 1 (4) ,CPSUM,DUM2 AK019 

CGMMGN/COND/DUM3 (35) , NEXT AK020 


AK021 

AK022 

AK023 

AK024 

AK025 

AK026 

AK027 

AK028 

AK029 

AK030 

AK031 

AK032 

AK033 

AK034 

AK035 

AK036 

AK037 

AK038 




AK039 


BEGIN ITERATION 

AK040 

43 

CALL MATRIX 

AK041 


NUMB = ITN- (ITNUMB - 1) 

AK042 


TQ2 = IQ 1 + 1 

AK043 


IF (.NOT. CONVG) GO TO 67 

AK044 


IF (LOGV) GO TO 63 

AK045 


DO 182 L=1,NLM 

AK046 

182 

PROW (L) = G (101 ,L) 

AK047 


GO TO 72 

AK048 

AK049 


LOGV = .TRUE. SET OP MATRIX TO SOLVE FOR DLVPT 

AK050 

63 

G(IQ1,IQ2) = ENN 

AK051 


10 = IQl - 1 

AK052 


DO 777 1=1,10 

AK053 

777 

G (1,102) = G (I, IQ 1) 

AK054 

72 

IMAT = IMAT - 1 

AK055 

67 

ITST = IMAT 

AK056 


CALL GAUSS 

AK057 


IF (ITST . NE. IMAT) GO TO 774 

AK058 


IF (.NOT. CONVG) GO TO 85 

AK059 


IF (LOGV) GO TO 171 

AK060 


SUM = 0. 

AK061 


DO 175 L= 1 , NLM 

AK062 

175 

SUM = SUM + PROW (L) * X ( L) 

AK063 


DLVTP = 1. + (G(I02,IQ1) - SUM) /ENN - X(IQ1) 

AK064 


CCPR = G (102,102) 

AK065 


DO 176 1=1,101 

AK066 

176 

CCPR = CCPR - G (102, 1) *X (I) 

AK067 


LOGV = .TRUE. 

A K 0 6 8 


GO TO 43 

A K 069 
AK070 


C INITIALIZE 

SMALRO = 1. 0E-06 
SMNOL = -13-815511 
SIZE = 18,5 
SIZEF = 0. 

CONVG = . FALSE. 

ISING = .FALSE. 

LOGV = .FALSE. 

ITN = 35 
ITNUME = ITN 
TLN = ALOG (TT) 

TM = ALOG (PP/FNN) 

ENNL = ALOG (ENN) 

CALL THRM (TT,1.) 

CPSUM = 0. 

DO 2 1 = 1 r NS 

2 CPSUM = CPSUM + CPR(I)*EN(I) 
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c SINGULAR M AT F IX 

774 IF {.NOT. CON VG) GO TO 871 
WRITE (6,172) 

172 FORMAT (9H0 (EQLBRM) , 5X , 26HDER IVATIVF MATRIX SINGULAR) 
GO TO 1171 
871 WRITE {6,74) 

74 FORMAT (9H0 (EQLBFM) , 5X , 1 5HS I NGUL AR MATRIX) 

IF {ISING) GO TO 873 
ISING = .TRUE. 

DO 970 1=1, NS 

IF (EN(I) .NE. 0.) GO TO Q 70 
EN (I) = SMALNO 
ENLN(I) = SMNOL 
970 CONTINUE 

WRITE (6,776) 

776 FORMAT (9H0 (FQL3RM) , 5X , 7 HR ESTAPT) 

GO TO 43 


C 


85 IT NUMB = ITNUMB - 1 

OBTAIN CORRECTIONS TO THE ESTIMATES 


IF (TP) X(IC2) = 0. 

DL NT = X (IQ2) 

SUM = X (101) 

DO 101 1=1, NS 

DELN(I) = HRT (I) *DLNT - HPT (I) + (SR (I) * ENLN (I) - TH) + 

DO 99 L= 1 , NLM 

99 DELN(I) = DELN(I) + A(L,T)*X(L) 

101 CONTINUE 
AMBDA = 1. 


AMBDA 1 = 1. 

SUM = DABS {X (101) ) 


IF (ABS(DLNT) 
DO 917 1=1, NS 
IF (EN (I) .GT. 
IF (EN (I) .NE. 
SUM 1 = (-9.212 


GT. SUM) SUM = ABS(DLNT) 


917 


0. .AND. DELNfl) .GT. SUM) SUM = DELN(I) 
0. .OR. DELN (I) .IE. 0.) GO TO 917 
- ENLN (T) + ENNL) / (DELN (I) - X{IQ1)) 

SUM1 = ABS (SUM1) 

IF (SUM1 .LT. AMBDA 1 ) AM BD A 1 = SUMl 
CONTINUE 

IF (SUM .GT. 2.) AMBDA = 2. /SUM 
IF (AMBDA 1 .LT. AMBDA) AMBDA = AMBDA 1 


SUM 


C APPLY CORRECTIONS TO ESTIMATES 
SUM = 0. 

DO 113 1=1, NS 

ENLN (I) = ENLN (I) * AM BDA+DFLN ( I) 

EN (I) = 0. 

IF ((ENLN (I) - ENNL + SIZE) -LF. 0.) GO TO 113 
EN (I) = EXP (ENLN (I)} 

SUM = SUM + EN (I) 

113 CONTINUE 
SUMN = SUM 
IF (TP) GO TO 115 
TLN = TLN + AMBDA*DLNT 
TT = EXP (TLN) 

CALL THRM (TT,1.) 

CPSUM = 0. 

DO 3 1=1, NS 

3 CPSUM = CPSUM + CPR (T) *EN (I) 

115 ENNL = ENNL ♦ AM BD A*X (IQ 1 ) 

ENN = EXP (ENNL) 

TM = ALOG (PP/ENN) 


AK071 

A K 0 7 2 

AK073 

AKC74 , 

AK075 

AK076 

AF077 

AK078 

AK079 

AK080 

A K08 1 

AK082 

AK083 

AK084 

AK085 

AK086 

AK087 

AK088 

AK089 

AK090 

AK091 

AK092 

AK093 

AK094 

A K 0 9 5 

AK096 

AK097 

AK098 

AK099 

AK100 

A K 1 0 1 

AK102 

AK103 

AK104 

AK105 

AK106 

AK107 

AK108 

AK109 

AK110 

AKl 1 1 

A Kl 1 2 

AKl 13 

AKl 14 

A K 1 1 5 

AKl 16 

AK117 

AK118 

AK119 

AK 120 

AK121 

AK 1 22 

AK 1 23 

AK124 

AK125 

A K 1 26 

AK 1 27 

AK 1 28 

AK 1 29 

AKl 30 

AK 1 3 1 

A K 1 32 

A K 1 3 3 
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C TEST FCR CONVERGENCE AK134 

IE (ITNUMB - EQ. 0) GO TO 13 AK135 

IF ( A MBDA .IT. 1.) GO TO 43 AK136 

SUM = {ENR - SUMN) /ENR AK137 

SUM = DABS (SUM) AK138 « 

IF (SUM .GT. 0.5E-05) GO TO 43 AK139 

DO 130 1 = 1 , NS AK140 

AA = ABS (DELN (I) /SUMN) *EN (I) AK141 

IF (AA .GT. 0.5E-05) GO TO 43 AK142 

130 CONTINUE AK143 

AK144 

13 CON VG = .TRUE. AK145 

IF (ITNUMB .NF. 0) GO TO 160 AK146 

WRITE (6 r 973) ITN AK147 

973 FORMAT (9H0 (EQLBRM) , 5X, 12, S2H ITERATIONS DID NOT SATISFY CONVERGEN AK148 
*CE REQUIREMENTS) AK149 

GO TO 873 AK150 

160 IF (.NOT. (TP .AND. CONVG) ) GO TO 143 AK151 

CALL THRM (TT,1.) AK152 

CPSUM = 0. AK 153 

DO 4 1= 1 , NS A K 1 54 

4 CPSUM = CPSUM + CPR(I)*FN(I) AK155 

143 ITNUMB = ITN AK156 

GO TO 43 API 57 

AK 158 

C CALCULATE EQUILBRIUM PROPERTIES AK159 

1 171 DLVPT = -1. AK 1 60 

DLVTP = 1. AK161 

CCPR = CPSUM AK 1 62 

GO TO 199 A K 1 6 3 

171 SUM = 0. AK 1 64 

DO 179 L=1,NLM AK165 

179 SUM = SUM + PROW (L) *X (L) AK166 

DLVPT = —2. + SUM/ENN + X(IQ1) AK167 

199 GAMMA = ~ 1 . / (DLVPT + DLVTP**2* ENN/CCPR) AK168 

WM = 1./ENN AK 1 69 

DO 872 1=1, NS A K 170 

872 EN (I) = EXP (ENLN (I) ) AK171 

RETURN AK172 

A K 1 7 3 

873 WRITE (6,900) AK174 

900 FORMAT (9H0 (EQLBRM) , 5 X , 3 4 HEQU I LI BRI U M CALCULATIONS ABANDONED) AK175 

NEXT = .TRUE. AK176 

GO TO 171 A K 1 77 

A K 1 78 

END AK 179 

$ I EFTC SOUT DECK 

SUBROUTINE SPOUT AL001 

AL002 

C SPECIAL OUTPUT AL003 

AL004 

DOUBLE PRECISION EN, ENLN, DELN AL005 

DOUBLE PRECISION DLVTP, DLVPT AL006 

AL007 

LOGICAL FROZ AL008 

A LOO 9 

REAL MIXMW, M2, MACHI , MACHF, zM2 1 , LSUBM AL010 

A LO 1 1 

COMMON/KOUT/DUM 1 (21) ,UNIT0,DUM2 (32) , FPS, ST, DEUGO AL012 

COM MON/CO ND/D VAR ,AREA,MDCT,P,IVAR,V,RHO,T,SIGKA(25) ,LS , LSP3 , NEXT AL013 
COMKCN/NECC/RF,MIXMW,M2, GA M M A I , TCPP , R AL014 

COMMON/GHSC/GRT (25) , HRT ( 25) , S R ( 25) , CPR (2 5) , DCPF ( 25 ) ALOIS 
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COMM OK/SPEC /DO M3 (6) ,SPNM (2, 27) ,0UM4 (25,62) 

CO M MON/ A. F ON/C X 3 ,CX2,CX1 , CXO , T TP SZ , LS'JPM , ET A , D, V ISC, BET A 
COM MON/MISC/TF ,PF,CPR0,H p 0 , ENN , DOM5 (32) 

COMMON/ SPECFS/EN (25) , 5NLN (2 5) , DELN (25) , A (15,25) 

CO M MO N/ POI NT S/ DL VT P , DL V , 0 AM M A F , W M 


ENTRY ECCOT 

C EQUILIPETUM COMBUSTION OUTPUT 
WRITE (6,101) 

101 FORMAT (1H1,50X, 3 0 H * * EQU ILTDRIOM COMBUSTION **) 
VI - 0- 
GO TO 2 


ENTRY ESOOT 

C EQUILIBRIUM SHOCK OUTPUT 
WRITE (6, 102) 

102 FORMAT ( 1 H 1 , 47X , 37H** EQUILIBRIUM SHOCK CALCULATION **) 


VI= V 
2 PI= P 
PHOI= RHO 
TI= T 

P2 1= PF/PI 
T21 = TF/TI 

RH021 = P21/T21+WM/MIXMW 
FROZ = .FALSE. 

GO TO 3 


NOT REPRODUCIBLE 


ENTRY FSOUT 

C FROZEN SHOCK OUTPUT 
WRITE (6,103) 

103 FORMAT (1E11,49X,32H** FROZEN SHOCK CALCULATION **) 
PI = P 
VI= V 
RHOI= RHO 

rp J — rp 

P2 1= PF/PI 
T21 = TF/TI 
RH02 1= P21/T21 
P = PF 

V= VI/RHO 2 1 
R HO= RH0T*RH02 1 
T= TI*T 2 1 

GAMKAF = TCPR/ (TCPR - 1./MIXMW) 

FROZ = .TRUE. 

3 CALL THEM (TI,1.) 

PMLOG = ALOG (PI*MIXMW) 

S=0. 

DO 4 1=1, LS 

IF (SIGMA (I) -E0. 0.) GO TO 4 

S = S ♦ SIGMA (I) * (SR (II - ALOG (SIGMA (I) ) - PMLOG) 

4 CONTINUE 

S = 5*1.087165 
MACHI= SQRT (M2) 

VF = VI/RH021 
RHOF= R HO I*R HO 2 1 
CALL THRM (TF,1.) 

PMLOG = ALOG (PF*WM) 

SF= 0. 

DO 5 1=1, LS 

IF (EN (I) . EQ. 0. ) GO TO 5 

SF = SF + FN (I) * (SR (T) - ALOG ( EN ( I) ) - PMLOG) 


AL016 

AL017 

AL018 

AL0 19* 

AL020 

AL021 

AL022 

AL023 

AL024 

AL025 

AL026 

AL027 

A L 0 2 8 

AL0 29 

AL030 

AL031 

AL032 

AL033 

AL034 

AL035 

AL036 

AL037 

A 1 0 3 8 

AL039 

A L 0 4 0 

AL041 

AL042 

AL043 

AL044 

AL045 

AL046 

AL047 

AL048 

AL049 

AL050 

AL051 

AL052 

AL053 

AL054 

AL055 

AL056 

AL057 

AL058 

AL059 

AL060 

AL061 

AL062 

A L 0 6 3 

AL064 

AL065 

AL066 

AL067 

AL068 

AL069 

AL070 

AL071 

AL072 

AL073 

AL074 

AL075 

AL076 

AL077 

AL078 

AL n-7 9 
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5 CONTINUE AL080 

SF = SF* 1.987165 AL081 

M ACHF= SQRT(VF/R*VF/TF*KM/GAMMAF) AL082 

AL083 

S2i= sf/s ALoaa 

G21= G AMM AF/GAMM AI AL085 

AL086 

IF (VI .EQ. 0.) GO TO 205 AL087 

SVI= VI/MACHI AL088 

S VF= VF/MACHF AL089 

V21= VF/VI A L090 

M2 1= KACHF/K ACHI AL091 

SV2 1= SVF/SVI AL092 

GO TO 305 AL093 

AL094 

205 MACHI = 0* AL095 

SVI = 0. AL096 

SVF = 0. AL097 

V21 = 0. AL098 

M21 = 0. AI099 

SV21 = 0. AL 100 

ALIO 1 

305 IF (-NOT. FBOZ -OR- ITPSZ . NE. 4) GO TO 405 AL102 

C CALCULATE L (M) FOR KINETIC AREA FUNCTION AL103 

PST = 1- AL104 

ROSVST = (GAMMA I/S VI) *1.01325E+06 AL105 

LSUBM = (1-/PF) * (RH021/ (RH021 — 1. ) ) * (80S VST/ ( PS^VISC) *M ACHI) ** ( ( 1 - AL106 
*-ET A) /ETA) * (D*PI/ (4.+BETA) ) ** (1./ETA) AL107 

AL1 08 

405 WRITE (6,104) AL109 

104 FORMAT (/4 1 X , 1 3HINITI AL STATF, 17 X , 11HFINAL STAT E, 1 7X , 1 9HFIN AL/I NIT AL110 

*IAL RATIO//) AL1 1 1 

AL1 12 

IF (UNITO -NE. FPS) GO TO 6 AL113 

C CONVERT FROM INTERNAL (CGS) UNITS TO FPS UNITS AL114 

PI= PI* 2116-2 AL 1 1 5 

PF= PF*2116.2 A L 1 1 6 

VI= VI/30.48 AL117 

VF= VF/30.48 AL1 18 

RH0I= RHOI*62- 43 AL119 

RHOF= RH0F*62. 43 AL120 

TI= TI* 1 . 9 AL121 

TF- TF* 1 . 8 ALl 22 

S VI= SVI/ 30.4 8 AL 1 23 

SVF= SVF/30.48 AL124 

WRITE (6 r 105) PI, PF,P21 , VI , VF, V2 1 , RHOI, RHOF, RH02 1 ,TI , TF, T2 1 , S , SF, ALl 25 

* S21, MACHI, MACHF,M21,GAMMAI,GAMMAF,G21 , SVI, SVF, SV21 AL126 

105 FORMAT (10X,8HPRESSURE,1PE35-5,E29.5,E32. 5/1 IX, 10H { LB/FT** 2) /I OX, AL127 

* 8 HVELOCITY , E3 5. 5 , E29. 5, E32- 5/1 1 X, 8H (FT/SEC) /10 X ,7 HDENSITY , E36. 5, ALl 28 

* E29. 5,E32- 5/1 IX, 10H (LB/FT**3) /I OX, 1 1HTEMPERATURE, E32.5,E29.5, ALl 29 

* E32-5/11X,7R (DEG R) /I OX ,7 H ENTROPY , E 36. 5 , E29 . 5 , E3 2. 5/ 1 1 X , 1 4 H ( BTU/L AL130 

*E/DEG R)/10X, 11HMACH NUMBER , E3 2. 5, F29. 5 , E 32 . 5//1 OX, 5HG AMM A , E3 8. 5 , AL131 

* E29. 5,E32.5//10X,14HSONIC VELOCIT Y , E29. 5 , E 29. 5 , E32 . 5/1 1 X , 8 H (FT/SE AL132 

*C) ) A L 1 3 3 

GO TO 8 A L 1 34 

A L 1 35 

6 IF (UNITO -RE. SI) GO TO 7 AL136 

C CONVERT FROM INTERNAL (CGS) UNITS TC ST UNITS AL137 

PI= PI* 1.01 325E+05 AL138 

PF= PF* 1.01325E + 05 AL139 

VI= VI*0.01 AL140 
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o n 


V F= VF*0.01 
RHOI= RHQI* 1 000- 
RHQF= R HOF* 1000- 
S= S*4184,0 
SF= SF*4 1 84- 0 
SVI= SVI*0.01 
SVF= SVF*0. 0 1 

WRITE (6,106) PI,PF,P21,VI,VF,V21,RHCI,RH0F,RH021,TI,TF,T21,S,SF, 

* S21,MACHI,MACHF,M21,GAMMAT,GAMMAF,G21,SVI,SVF,SV21 

106 FOR WAT (10X,8H PRESSURE, 1 PE35- 5 , E29 . 5 , E32. 5/ 1 IX, 8 H (N/M**2) /10X,8HVE 
♦LOCTTY, E35-5,E29.5,E32. 5/11X,7H (W/SEC) /1 0 X,7HDENSITY , E 36. 5, E29. 5 , 

* £32. 5/1 1 X, 9H (KG/M** 2) /10X, 1 1 HTEM FEB ATURE, E32. 5 , E29. 5 , E32. 5/1 IX, 

* 7H (DEG K) /10X,7HENTROPY, E36. 5, E29. 5, E32.5/11X, 16H (JOULE/KG/DEG K) 

*/10X, 11HKACH NUMBER, E32.5, E29-5,E32- 5//10X, 5HGAMMA,E3R.5,E29.5, 

* E32. 5//10X,14HSONIC VELOCITY , E29. 5 , E29. 5, E32. 5/1 1 X ,7H (M/SEC) ) 

GO TO 8 

C PRINT OUTPUT IN INTERNAL (CGS) UNITE 

7 WRITE (6, 107) PI, PF ,P 2 1 , VI, VF , V2 1 , R HO I , PHOF, RH02 1 , TI ,TF , T2 1 , S , SF , 

* S21,MACHI,MACHF,M21,GAMMAI,GAMMAF,G21,SVI,SVF,SV21 

107 FORMAT (10X,8HPRESSURE,F35»4, F28 .4 , F 3 2- 4/ 1 1 X, 5H (ATM) /I OX ,8HVELOCIT 
*Y,F33.2,F28. 2,F34- 4/1 IX ,8H (CM/ SEC) /10X ,7 H DENSITY , 1PE36. 5, E28. 5, 

* 0PF32- 4/1 IX, 1 OH (GM/CM**3)/10X, 1 1 HTEM PER ATURE, F30. 2 , F2B. 2, F 34. 4/ 

* 1 1X , 7H (DEG K)/10X, 7H ENTROPY, F3 6. 4 , F28 - 4 , F 3 2. 4/1 IX, 14H (CAL/G M/DEG 
*K) /I OX, 11HMACH NUMBER,F32. 4 , F28 . 4 , F32- 4// 1 0 X , 5HGAMM A, F38.4,F28.4, 

* F32. 4//10X, 14HSONIC VELOCITY , F27 . 2 , F28 - 2 , F 3 4- 4/1 1 X,8H (CM/SEC) ) 

8 WRITE (6,108) 

108 FORMAT (/67X ,7HSPECI ES , 5X , 1 3H MOLE FRACTION) 

DO 9 1=1, LS 

EN (I) = EN (I) *WM 

WRITE (6, 109) (SPNM (K,I) ,K= 1 , 2) , EN (I) 

109 FORMAT (68X,2A4, 3X, 1PE12-5) 

9 CONTINUE 

WRITE (6,110) WM,DLVTP,DLVPT 

110 FORMAT (/10X,24HMIXTURE MOLECULAR WEIGHT , 36X , F 1 2- 5// 1 0X , 22HD (LOG V 
*OLUME) /D (LOG T) ,F49. 4/14X, 1 3HAT CONSTANT P//10X , 22HD (LOG VOLUME) /D 
♦(LOG P) ,F49.4/14X, 13HAT CONSTANT T) 

RETURN 

END 

$1 EFTC OUTPP DECK 

SUBROUTINE OUTP 

OUTPUT CAN BE GIVEN IN (1) INTERNAL (CGS) UNITS, (2) FPS UNITS 
(3) SI UNITS 

LOGICAL ALLM1 ,CONC , D BUGC , E XCHR , NEXT , RHOCON , TCON 

REAL M DOT, I VAR ,N,M,MW,MIXMW,M2,MACH,LSUBM 

DIMENSION SPNM (2,27) ,PRC (25) ,PRX (30) ,XXH (30) ,ESP (2, 25) 

CCMMCN/O PTS/VERSI,TIMEV, VERSA, ARFAV,ELTM, TCON, FHOCON, IPRCOD 
COMMON/COND/DVAR , AR EA, M COT, P,IVAR,V ,RHO,T,SIGKA (25) ,LS , LSP3 , NEXT 
COMMON/SINT/HMI N ,HINT,HN,HNP1 , H MAX, N H , AV H, E M AX , ERRN ,7CV , KOU NT , EPPP 
COMMON/KOUT/TITLE (20) , UNITT,UNITO,CONC,E XCHR ,DELH ( 30) , FPS , SI , DBUGO 
COMMON/REAC/LSR (4,30) , X X (3 0) , P ATE ( 3 0) ,LKE0(30) ,DLKE0(30) ,MM (30) ,LP 
COMMON/PRAT/A (30) ,N (30) , EACT (30) ,8 (30) ,M (25,30) , ALLM 1 
COMHON/AFUN/CN (4) , ITPSZ , LSTIRM , ET A , D , VISC , BETAL 
COMMON/SPEC/SNAM (2,30) ,KW(25) ,W(25) , STOIC (25 ,30) ,OMEGA (29,30) 


AL141 

AL142 

AL143 

AL144 

AL145 

AL 1 46* 

AL147 

AL 1 48 

AL149 

AL150 

AL 15 1 

AL152 

AL 1 53 

AL154 

AL 1 55 

AL156 

AL157 

AL158 

AL159 

AL 160 

AL161 

AL 1 62 

AL163 

AL164 

AL165 

AL166 

AL 1 67 

AL 168 

AL169 

AL170 

AL171 

AL 172 

AL173 

AL174 

AL175 

AL176 

AL177 

AL 178 

AL179 

AL180 

AL 1 81 

AM001 
AM002 
AM003 
AM004 
AK005 
AM006 
AM007 
AM008 
A MO 09 
A MO 1 0 
AMO 1 1 
A MO 1 2 
AM0 1 3 
AM0 1 4 
AMO 15 
AMO 1 6 
AMO 1 7 
AMO 1 8 
AMO 1 9 
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COMMON/XV SA/XTB (40) , ATB (40) ,NT3,XU,AU (2) r CX (4) A«020 

COMMON/NECC/RR,MIXMW,M2,GAMMA,TCPR,R AM021 

COM MO N/PQRE/PK (28) ,QK(28) r RK(28) ,E (28) AM022 

COMMON/DERN/F (28) , ALPHA (28) r EETA (28,28) AM023 

COMMON/SKIP/NEGL (25) ,11, 12, IT AM024 

COMMON/GHSC/GRT (25) ,HRT(25) ,SR (25) ,CPP(25) , DCPR (25) AM025 

COMMON/SABS/SI, A A, BB, S2, DA, D2A , DTERM AM026 

AM027 

EQUIVALENCE (SPNM , SN A M ( 1 ,4) ) , ( ELA NK , SPNM ( 1 , 27) ) AM028 

EQUIVALENCE (PRX ( 1) , XXH ( 1) ) AM029 

AM030 

ENTRY OUT 1 AM031 

AM032 

C ** TITLE PAGE AM033 

IF (VERSI .EQ. TIMEV) GO TO 98 AM034 

1 - 2 AM035 

GO TO 99 AM036 

98 I = 4 A MO 37 

99 IF (VERSA -EQ. AREA V) 1=1-1 AM038 

GO TO ( 100, 200,300,400) , I AM039 

100 WRITE (6,101) A M 04 0 

101 FORMAT (1H1, 1 4X, 2 1 HDIST ANCE-A R E A VERSION) AM041 

GO TO 3 AM042 

200 WRITE (6,201) AM043 

201 FORMAT ( 1H 1 , 1 2X, 25HDISTANC E-PRESS UR E VERSION) AM044 

GO TO 3 AM045 

300 WRITE (6,301) AM046 

301 FORMAT ( 1H1 , 16X, 17HTIME-AFE A VERSION) AM047 

GO TO 3 AM048 

400 WRITE (6,401) AM049 

401 FORMAT (1H1, 14X, 21 HTIME- PRESSURE VERSION) AMO50 

3 WRITE (6,102) (TITLE (I) , 1= 1 , 20 ) AM051 

102 FORMAT ( 1H* , 49X, 33HGENEPAL CHEMICAL KINETICS PP.OGFA M , 1 1 X ,2 6HN AS A L AM052 

*EWIS RESEARCH CENTER///26X , 2 0 A4///9X , 8 H R FACTION , 3 1 X , 8HR E ACT ION, AM053 

* 38X,23HREACTION PATE V ARI ABLES/10X , 6HNU MRFR ,74 X , 1 H A , 16 X , 1 HN , 9X , AM054 

* 10HACTIVATION/1 1 9X , 6HE NEPG Y) AM055 

A MO 56 

C PRINT REACTION INFORMATION AM057 

DO 6 J=1,LF AMC58 

N1 = LSR ( 1 , J) A M 059 

N2 = LSR (2, J) AM060 

N3 = LSR (3 , J) AM06 1 

N4 = LSR (4 , J) A M062 

WRITE (6,103) J, (SPNM (I,N2) ,1=1,2) , (SPNM (I,N3) ,1=1,2) ,A (J) ,N (J) , AM063 

* EACT (J) AM064 

103 FORMAT ( 1 2X, 12 , 27X , 2A4 , 2X , 1 H= , 2 X , 2 A 4 , 23 X , 1PE 1 2. 5 , 5 X , 0 PF 1 0. 4 , 5 X, AM065 

* F10.2) AM066 

IF ( N 1 -GT. 0) GO TO 5 AM067 

IF (N 1 .LT. 0) GO TO 4 AM068 

N 1 = 26 AM069 

GO TO 205 AM070 

4 WRITE (6,105) (SPNM (I, N4) ,1=1,2) AM071 

105 FORMAT ( 1 H+ , 63X , 1H+ , 2X , 2A4) AM072 

GO TO 6 AM073 

5 IF (NU .GT. 0) GO TO 205 AM074 

IF (N 4 .LT. 0) GO TO 204 AM075 

N4 = 26 AM076 

GO TO 205 AM077 

204 WRITE (6,1105) (SPNM (I , N 1 ) ,1= 1 , 2) AM078 

1105 FORMAT ( 1 H+ , 27X , 2 A 4 , 2X , 1 H + ) AM079 

GO TO 6 AM 080 
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205 WRITE {6,104) (SPNM(I,N1) ,1=1,2) » (SPNM(I,N4) ,1=1,2) 
104 FORMAT ( 1H+ ,27 X , 2 A4 , 2X , 1 H+ , 25X , 1H+ , 2X , 2 A4) 

CONVERT ACTIVATION ENERGY TO B-FACTOF 
6 B (J) = EACT (J) /I. 987165 

IF {.NOT- AILM1) GO TO 7 
WRITE (6,106) 

106 FORMAT (///5 1 X , 29H ALL 
GO TO 13 


THIRD BODY RATIOS ARE 1.0) 


7 

107 


WRITE (6,107) 

FORMAT (///41.X, 50 HALL THIRD BODY RATIOS APE 1.0 EXCEPT THE FOLLOWI 
*NG//) 

K - 0 

DO 12 1=1, LS 
DO 12 J= 1 , L B 

IF (M(I,J) -EQ. 1.) GO TO 12 
K = K + 1 

IF (K -EQ. 5) K = 1 
GO TO (8,9, 10, 11) ,K 

8 WRITE (6,108) (SPNM (K,I) ,K=1 ,2) , J,M (I,J) 

108 FORMAT (5X,2HM (,2A4,1H, ,12, 3H) =,F10.5) 

GO TO 12 

9 WRITE (6,109) (SPNM (K , I) , K= 1 , 2) , J , M (I , J) 

109 FORMAT (1 H+,36X, 2HM ( , 2A4, 1 H, , 12, 3H) =,F10.5) 

GO TO 12 

10 WRITE (6,110) (SPNM (K,I) ,K=1,2) ,J,M (I,J) 

110 FORMAT (1H+,68X,2HM (,2A4,1H,,I2,3H) =,F10.5) 

GO TO 12 

11 WRITE (6,111) (SPNM (K, I) , K= 1 , 2) ,J,M(I,J) 

111 FORMAT (1H+,100X,2HM(,2A4,1H,,I2,3H) =,F10.5) 

12 CONTINUE 
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112 


IF (VERSI -EQ- TIMEV) GO TO 14 
WRITE (6,112) HMIN, H MAX, HINT, EMAX 

FORMAT (///56X , 20HINTEGR AT ION CO NT POLS// 1 5X , 1 7HMINIMU M STEP SIZE, 

♦ El 4. 5, 3H CM,33X,17HMAXIM0M STEP SIZE , E 1 4. 5 , 3H CM// 15X , 17HIN ITI AL 
♦STEP SIZE, E14. 5, 3H CM, 33X,22HMAXIMUM RELATIVE ERROR,F10.5) 

GO TO 15 

14 WRITE (6,113) HMIN, HMAX, HINT, EMAX 
113 FORMAT {///56X , 20HINTEGR ATION CONTROLS// 15X , 17HMINIMUM STEP SIZE, 

* E 1 4. 5, 4H SEC,32X, 17HMAXIMUM STEP SIZE , El 4. 5 , 4H SEC//1 5 X, 17HINITI A 
*L STEP SIZE ,E14.5,4H SEC,32X, 22HMAXIMUM RELATIVE ERROR,F10.5) 


♦♦ SECOND PAGE 
15 WRITE (6,114) 

114 FORMAT (1H1,50X,31H** ASSIGNED 
GOTO (16,18,19,19,20) ,ITPSZ 


VARIABLE PROFILE **//) 


16 GO TO (1 16,216,316,416) ,IPRCOD 
ASSIGNED VARIABLE TABLE 

116 WRITE (6,117) XO,AU 

117 FORMAT (34X, 64HTHE AREA IS CALCULATED BY INTERPOLATION FROM THE FO 
♦BLOWING TABLE//36X,7HSTATION,10X,17HAXIAL DISTANCE ( , A2 , 1 H) ,10X, 

♦ 7HAREA (, A4 , A 1 , 1 H) ) 

GO TO 516 

216 WRITE (6,217) XU , AU 

217 FORMAT (32X , 68HTHE PRESSURE IS CALCULATED BY INTERPOLATION FROM TH 
♦E FOLLOWING T ABLE//36X ,7HST ATIC N , 1 0 X , 17 H AX'I AL DISTANCE (,A2,1H), 

♦ 9X, 1 1HPRESSURE (,2A4,1H)) 

GO TO 516 


AM081 
AMOS 2 
AM083 
AM084 
AM085 
AM0'86 
AM087 
AM088 
AM089 
AM090 
AM091 
AM092 
AM093 
AM094 
AM095 
AM096 
AM097 
AM098 
AM099 
AM 100 
AMI 0 1 
AMI 02 
AMI 03 
AM 1 04 
A M 1 0 5 
A M 1 06 
A M 1 07 
AM 1 08 
A M 1 09 
AM1 10 
AM1 1 1 
AM1 1 2 
AM1 1 3 
A M 1 1 4 
AMI 15 
AM 1 1 6 
A M 1 1 7 
AM 1 18 
AM1 19 
AM 1 20 
A M 1 2 1 
AM 122 
AMI 23 
AM 1 24 
A M 1 25 
A Ml 26 
AMI 27 
A M 1 28 
AM129 
A Ml 30 
A M 1 3 1 
AMI 32 
AM 1 33 
AM 1 34 
A M 1 35 
A M 1 36 
A Ml 37 
AM138 
A M 1 39 
A M 1 40 
AM 141 
A M 1 4 2 
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316 WRITE (6,317) AD AM143 

317 FORMAT ( 34X, 64 HT HE AREA IS CALCULATED BY INTERPOLATION FROM THE FO AN144 

ALLOWING TABLE//36X,7HSTATION, 14X,1 1HTIME (S EC) , 16 X , 7HA PEA (,A4, AM145 

* A1,1H)) AM 1 46 

GO TO 516 AM147 

416 WRITE (6,417) AD AM148, 

417 FORMAT (32X,68HTHE PRESSURE IS CALCULATED BY INTERPOLATION FROM TH AM149 

*E FOLLOWING T ABLE//36X ,7HSTATI0N , 14X, 1 1 HTIME (SEC) , 1 5X , 1 1 HPRESSUR AM150 
*E (, 2A4, 1 H) ) AM151 

516 DO 17 1=1, NTB AM152 

17 WRITE (6,616) I , XTB (I) , ATB (I) AM153 

616 FORMAT (38X, 12 , 1 4X, 1PE 1 2. 5 , 1 5 X , E 1 2- 5) AM154 

GO TO 21 AM 1 55 

AM 156 

18 GO TO (218,318,418,518) ,IPRCOD AM157 

C ASSIGNED VARIABLE POLYNOMIAL AM158 

218 WRITE (6,219) A0,CX AM159 

219 FORMAT (40X,52HTHE AREA IS CALCULATED FROM THE FOLLOWING POLYNOMIA AM160 

*L//23X,6HAREA (,A4,A1,5H) = ( , 1 PEI 2. 5 , PH) X** 3 + (, El 2. 5 , 9H) X**2 + AM161 

*(,E12.5,6H) X + (,E12.5, 1H) ) AM162 

GO TO 21 AM163 

318 WRITE (6,319) AU,CX AM164 

319 FORMAT (38X,56HTHE PRESSORE IS CALCULATED FROM THE FOLLOWING POLYN AM165 

♦OMIAL//20X, 10HPRESSURE (,2A4,5H) = ( , 1 PEI 2. 5 , 9H) X**3 + (,E12.5,9H) AM166 
*X**2 + (, E12. 5, 6H) X + (,E12.5,1H)) AM167 

GO TO 21 AMI 68 

418 WRITE (6,419) AU,CX AM169 

419 FORMAT (40X,52HTHE AREA IS CALCULATED FROM THE FOLLOWING POLYNOMIA AM170 

*L//23X, 6HAPEA (,A4,A1,5H) = ( , 1 PE 1 2. 5 , 9H) T** 3 + ( , E 12. 5 , 9H) T**2 + AM171 

* (,E12.5,6H) T ♦ (,E12.5,1H)) AM172 

GO TO 21 AM173 

518 WRITE (6,519) AU,CX AM174 

519 FORMAT (38X,56HTHE PRESSURE IS CALCULATED FROM THE FOLLOWING POLYN AM175 

♦OMIAL//2 CX, 1 DEPRESS II RE (,2A4,5H) = (,1PE12.5,9H)T**3 f (,E12.5,9H) AM176 

*T**2 + (,E12.5,6H)T + (,E12.5,1H)) AM177 

GO TO 21 AM178 

AM179 

C SPECIAL AREA FUNCTION AM180 

19 WRITE (6,118) LSUBM , ET A AM181 

118 FORMAT (41X,50HTHE AREA IS CALCULATED FROM THE FOLLOWING FUNCTION/ AM182 

*/46X, 16H1/APEA = 1 - ( 1 / , FI 0. 3 , 4H) ** ( , F 1 0. 5 , 1 H) ) AM183 

IF (ITPSZ .EQ. 4) WRITE (6,1118) D,VISC,BETAL AM184 

1118 FORMAT (/6X,20HHYDRAIILIC DIAMETER =,FR.4,3H CM , 7 X, 2 3H VI SCOS ITY COE AM185 
EFFICIENT =,E12.4,10H G M/CM-SEC , 7X , 6 HBET A =,F7.4) AM186 

GO TO 21 AM 1 87 

AM 188 

C ZERO VELOCITY - ASSIGNED VARIABLE NOT REQUIRED AM189 

20 WRITE (6,119) A M 1 90 

119 FORMAT (36X,60HTHIS IS A V=0 PROBLEM - AN ASSIGNED V API ABLE IS NOT AM191 

* REQUIRED) AM 192 

A M 1 9 3 

C NEGLECTED SPECIES AM194 

21 IF (II -NE. 0) GO TO 22 AM19S 

WRITE (6,120) A M 1 96 

120 FORMAT (///3 1 X, 7 0 HNO SPECIES WILL BE PERMANENTLY NEGLFCTFD FROM AL AM197 

*L ERROR CONSIDERATIONS) AM198 

GO TO 228 AM1D9 

22 WRITE (6,121) AM200 

121 FORMAT (///31X, 69HTHE FOLLOWING SPECIES WILL BE NEGLFCTED FROM ALL AM201 

* ERROR CONSIDERATIONS//) AM202 

K = 0 AM203 

DO 28 11=1,11 AM204 
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J I HT} 11 ’ NOT REPRODUCIBLE'.: 

IF (K . EO. 6) K = 1 " 

GO TO (23,24,25,26,27) ,K 

23 WRITE (6,122) (SPNM(J,I) ,0=1,2) 

122 FORMAT (6 1 X , 2 A4) 

GO TO 23 

24 WRITE (6,123) (S PNM ( J , I ) , vl= 1 , 2) 

123 FORMAT { 1 H + , 76X , 2 A4) 

GO TO 28 

25 WRITE (6,124) (SPNM ( J , I) , J= 1 , 2 ) 

124 FORMAT ( 1H + , 4UX, 2A4) 

GO TO 23 

26 WRITE (6,125) (SPNM(J,I) , J= 1 , 2) 

125 FORMAT (1H+,92X, 2A4) 

GO TO 28 

27 WRITE (6,126) (SPNM ( J , I ) , J = 1 , 2 ) 

126 FORMAT ( 1 H + , 2 8 X , 2 A4 ) 

28 CONTINUE 

228 IF (RHOCON) WRITE (6,1126) 

1126 FORMAT (/// 3 RX , 5 6HTHE VOLUME (DENSITY) WILL BE HELD CONSTANT FOP T 
♦HIS CASE) 

IF (TCON) WRITE (6,2126) 

2126 FORMAT (///40X, 5 1 HTH E TEMPERATURE WIT, I BE HELD CONSTANT FOR THIS C 
♦ ASE) 

RETURN 

ENTRY 0 UT2 

C INITIAL CONDITIONS 
WRITE (6,127) 

127 FORMAT ( 1H 1 , 52 X , 26H** INITIAL CONDITIONS **//) 

GO TO 29 


AM205 
A M206 
AM207 
AM208 
A M2 0.9 
A M 2 1 0 
A M2 1 1 
A M 2 1 2 
A M 2 1 3 

A M2 1 4 
A M 2 1 5 
A M 2 1 6 
A M2 17 
A M2 1 8 
AM? 1 9 
AM 22 0 
AM221 
AM222 
A M 2 2 3 
A M 2 2 4 
A M 2 2 5 
A M 226 
AM227 
AM228 
AM229 
AM230 
A M 2 3 1 
A M2 3 2 
AM233 
AM234 
A M2 35 
AM236 
A M 2 37 
AM238 
A M23° 


ENTRY OUT3 

C GENERAL OUTPUT 
WRITE (6,128) 

128 FORMAT ( 1 H 1 ) 

29 MACH = SORT (M2) 

MAX = MAXO (LS,LR) 

TENT = 0. 

CSUM = 0. 

PMLOG = ALOG (P*MTXMW) 

C TOTAL ENTROPY AND MASS FRACTION SUM 

DO 30 1=1, LS 

IF (SIGMA (T) .EO. 0.) GO TO 30 

TENT = TENT ♦ S IGM A ( I) * ( SR ( I) - A LOG (SIGMA (T) ) - PMI.OG) 

30 CSUM = CSUM + SIGMA (I) ♦MW (I) 

TENT = TENT* 1. 9R7165 

TXXH = 0. 

C ENERGY EXCHANGE RATES 

DO 31 J = 1 , L R 
XXH(J) = XX (J) *DELH (J) 

31 TXXH = TXXH + XXH (J) 

IF (VE.RSI .EC. T I M E V ) GO TO 32 
TIME = DVAP 
X = I V A R 
GO TO 33 


AM240 
AM241 
AM 242 
AM243 
AM244 

AK245 

AM246 

AM247 

AM248 

AM249 

A M 2 5 0 

AM251 

AM252 

AM253 

AM254 

A M2 55 

AM256 

AM 257 

A M? 58 

AM259 

AM26C 

A M 26 1 

AM262 

AM263 

A M2 6 4 

AM265 

AM266 

AM 26 7 

AM 26 8 
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32 TIME = I VAR AM269 

X = DVAP AM270 

A M 27 1 

33 IF (UNITO . NE. FPS) GO TO 48 AM272 

AP5273 

C CONVERT FROM INTERNAL (CGS) UNITS TO FPS UNITS AM274 

X = X/30.48 AM275 

AREAA - ARE A/9 29.0304 AM276 

DOTM = MDOT/453. 59237 AM277 

PP = P*2 1 1 6. 2 AM278 

VV = V/30.48 AM279 

RHOO = RHO*62. 43 AH280 

TT = T*1.8 AM281 

AK282 

WRITE (6,129) TIKE, A REAA r X, PP , NH, VV,AVH,RKOO, (SNAK (I, JCV) ,1 = 1,2) , AM283 

* TT, DOTM, TENT, ERFN, MACH, FOUNT, GAMMA AM284 

129 FORMAT ( 16 X, 4 HTIME, 1 PE 1 4, 5, 5H SEC , 14X, 4HAREA,El 4. 5 ,7 h SQ FT, AM285 

* 1 4X , 1 4H AXI A L POSITION , E 1 4 . 5 , 4 H FT///20X, 1 5HFLOW P FO P EPTI ES , 45X , AM286 

* 22HINTEGRATION IN DIC ATOR S//2 2X, 8 HPRESSURE , E22. 5 , 30 X , 2 1 HSTEPS FR AM287 

*OM LAST PRINT,9X,I4/23X,10H(LB/FT**2)/22X,8 HVELOCITY ,E22.5,30X, AM288 

* 17HAVERAGE STEP SIZE, 0PE2 4. 5/23X , RH (FT/SEC) /22 X ,7HDENSITY , 1PE23. 5 AK289 
*, 30X, 2 OHCO NT ROLLING V ARI ABLE, 1 1 X, 2 A4/23X , 1 OH (LB/FT**3) /22X, 11HTFMP AM290 
*ERATURE,E19. 5/23X,7H (DEG R) /22X, 1 4HMASS FLOW R ATE, E 16. 5/23X , 8H (LB/ AM291 
♦SEC) /2 2 X,7H ENTROPY, F23.5,30X, 1 4 HRELATI VE ERROR, OPE 27. 5/23X, 14 H (BTU AM292 
♦/LB/DEG R) /22X, 11HMACH NUMBER, 1PE19. 5 ,30 X, 2 OH PREDICTOR ITERATIONS, AM293 

* 1 1X,I3//22X,5HGAKMA, E25.5) AM294 

AM295 

IF (12 . ECU 0) GO TO 34 AM296 

IS = II + 1 AM297 

DO 233 K-IS, IT AK298 

KK = NEGL(K) AM299 

ESP ( 1 , K) = SPNM ( 1 , KK) AH300 

233 ESP (2 , K) = SPNM (2 , KK) AM301 

WRITE (6,130) ( (ESP (T,K) ,1=1,2) ,K=IS, IT) AN302 

130 FORMAT ( 1H+ ,81 X, 1 8HELIBT NATED SPECIES , 1 3 X , 2 A4,2X,2A4/ (1 13X, 2A4,2X, AM303 

* 2A4) ) AM304 

AM305 

34 WRITE (6,131) AM306 

131 FORMAT (//56X, 19HCHEMICAL PROPERTIES//) AM307 

AM308 

CONV = 0.02883 AP1309 

IF (CONC .OR. EXCHR) GO TO 36 AM310 

A M3 11 

C PRINT MASS FRACTIONS AND REACT! C N CONVERSION PATES AM312 

WRITE (6,132) A M3 1 3 

132 FORMAT (IX , 7HSPECIES ,4X, 13 II MASS FRACTION , 3X , 1 3HMOLE FRACTION, 3X, AM314 

* 27 H NET SPECIES PRODUCTION PATE , 5X , 8 HRE ACTI ON , 3 X , 2 RRN ET REACTION C AM315 

CONVERSION RATE, 3X,13HRATF CONSTANT) AM316 

WRITE (6,133) AM317 

133 FORMAT (SOX , 1 €H ( MOLE/FT** 3/SFC) , 1 1 X , 6KNUKBEP , 7X , 2 2H (MOL E-FT** 3/L P AM318 

**2/SEC) ,7X,11H(CGS UNITS)) AM319 

DO 35 J = 1 , LP A M320 

35 PR X ( J) = XX (J) AM 32 1 

CONV = 1./62.43 AM322 

GO TO 37 AK323 

A M 3 2 4 

36 IF (CCNC .OP. (.NOT. EXCHR)) GO TO 39 AM325 

AM326 

C PRINT MASS FRACTIONS AND ENERGY FXCHANGE PATFS AN327 

WRITE (6,134) AM32R 
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134 FORMAT { 1 X, 7HSPEC IES , 4X , 1 3H MASS FRACTION, 3X , 13HMOLE FRACTION, 3X, 

* 27HNET SPECIES PRODUCTION F ATE , 5X , 8 HRFACTION , 5 X ,24 HNET ENERGY EXC 
♦HANGE RATE,5X,13H8ATE CONSTANT) 

WRITE (6,135) ^ 

135 FORMAT (50X , 16H ( MOLE/FT** 3/SEC) , 1 1 X , 6HNU MRER , 8X , 2 1 H (BTU~FT**3/LE** 
♦2/SEC) ,7X, 1 1H (CGS UNITS)) 

C COMPUTE MASS FRACTIONS 

37 DO 38 1=1, LS 

38 PRC (I) = SIGMA (I) *MW (I) 

GO TO 44 

39 IF ((-NOT. CONC) -OR. EXCHR) GO TO 41 


AM329 
AM330 
AM331 
AM 332 
&K3 33 
AM334 
AM 335 
AM 336 
AM337 
AM338 
A M 3 3 9 
AM340 
AM341 
AM342 



PRINT MOLAR CONCENTRATIONS AND REACTION CONVERSION PATES 
WRITE (6,136) 

136 FORMAT ( 1 X,7HSPECIES ,4 X , 1 3HCONCENTP ATTCN , 3X , 1 3HMOL E FRACTION, 3X, 

♦ 27HNET SPECIES PRODUCTION R ATE , 5X , 8 HREACTION , 3X , 2 8HNFT REACTION 

♦ ON VER SION RATE, 3X,13HR ATE CONSTANT) 

WRITE (6,137) 

137 FORMAT (12X,13H (MOLES/FT** 3) ,25X,16H ( MOLE/FT **3/S EC) ,11X,6H NUMBER 

♦ 7X , 22H ( MOLE-FT**3/L E** 2/S EC) ,7X,11H(CGS UNITS)) 

DO 40 J=1,LR 

40 PRX (J) = XX (J) 

CO NV = 1./62.43 
GO TO 42 


A M3 4 3 
AM344 
AM345 
C AM346 
AM347 
AM348 
, AM349 
AM350 
AM351 
AM352 
AM353 
AM 354 
AM355 


PRINT MOLAR CONCENTRATIONS AND ENERGY EXCHANGE FATES AM356 

41 WRITE (6, 138) AM3B/ 

138 FORMAT ( 1 X , 7HSPECIES , 4X , 1 3HCONC ENT P ATICN , 3X , 1 3HMOLE FRACTION, 3X, AM358 

♦ 27HNET SPECIFS PRODUCTION R ATF , 5X , 8HPF ACTION , 5 X ,2 4 RN ET ENERGY EXC AM359 
♦HANGE RATE,5X,13HRATE CONSTANT) 

WRITE (6,139) R 

139 FORMAT (12X,13H(MOLES/FT**3) ,25X,16H (MOL E/FT ♦♦3/SEC) , 11X,6H NUMBER, AM362 

♦ 8X,21H (BTU-FT**3/L8**2/SEC) ,7X ,1 1H (CGS UNITS)) AM363 


COMPUTE MOLAR CONCENTRATIONS 

42 DO 43 1=1, LS 

43 PRC (I) = SIGMA (I) *11800 


AM365 

AM366 

AM367 

AM368 


44 DO 47 I J= 1 , MAX 

IF (IJ .GT. LS .OR. IJ .GT. LR) GO TO 45 
FMOL = SIGMA (IJ) *MIXMW 
WW = W (IJ) *62.43 
XXX = PRX (IJ) *CONV 

WRITE (6,140) (SPNM (I , I J) , 1 = 1 , 2) , P HC (I J) , FMOL, W W , IJ , XXX , R AT E (IJ) 

140 FORMAT (2X,2A4,2X,1PE12.5,4X,E12„5,11X,E12.5,16X,I2,14X,E12.5,11X, 

* E12.5) 

GO TO 47 

45 IF (IJ -GT. LS) GO TO 46 
FMOL = SIGMA (IJ) *MIXMW 
WW = W ( I J) *62.43 

WRITE (6,141) (SPNM (I, IJ) ,1=1,2) , PRC (IJ) , FMOL, WW 

141 FORMAT (2X,2A4,2X,1PE12.5,4X,F12.5,11X,E12.5) 

GO TO 47 

46 XXX = PRX (IJ) *CCN V 

WRITE (6.142) IJ. XXX. RATE (IJ) 

142 FORMAT (79X,T2, 14X, 1PE 1 2. 5 , 1 1 X, El 2. 5) 

47 CONTINUE 

TXXH = TXXH*0. 02883 

WRITE (6,143) MIXMW,TXXH,CSUM 


A M3 69 

AM370 

AM371 

AM372 

AM373 

A M 374 

AM375 

AM376 

AM377 

AM378 

A M 3 7 9 

AM380 

AM381 

AM382 

A M 3 8 3 

A M 384 

A M3 85 

A M 3 8 6 

AM387 

AM388 

AM389 
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143 FORMAT { /4X, 24HMIXTURE MOLECULAR HEIGHT, Fl 3. 5, 5X, 26HTOTAL ENERGY AM390 

♦EXCHANGE B AT E, 1 PE15. 5 , 7 X , 17 HM ASS FRACTION SUM,0PF14.8) AM391 

WRITE (6,144) A M 392 

144 FORMAT (49X,21H (BTU-FT** 3/LB** 2/SEC) ) AM393 

GO TO 78 A M 3 9 4 

AM395 

48 IF (UNITO .NE. SI) GO TC 63 AM396 

AM397 

C CONVERT FROM INTERNAL (CGS) UNITS TO SI UNITS AM398 

X = X*.01 AM399 

AREAA = AREA*. 0001 AM400 

DOTM = MDOT*0. 001 AM401 

PP = P* 1. 01 325E+ 05 AM402 

VV = V*.C1 AM403 

RHOO = RHO*1 000. AM404 

TENT = TENT*4 184.0 AM405 

AM406 

WRITE (6,145) TIME, AREAA, X, PP , NH , VV , A VH , RHOO, (S N A W (I , vJC V) ,1=1,2) , AM407 

* T, DOTH, TENT, ERRN, MACH, KOUNT, GAMMA AM408 

145 FORMAT { 1 6 X , 4 HTIME, 1PE 1 4. 5 , 5H S EC , 1 4X , 4H AR E A , El 4. 5 , 7 H SQ M , AM409 

* 1 4X , 1 4H AXI AL POSITION , E 1 4. 5 , 4 H M ///20 X , 1 5 HFLOW PROPERTIES, 45X , AM410 

* 22HINTEGR ATION IN DIC ATOR S//22X , 8HPRE SSUR E , E2 2. 5 , 30 X , 2 1 HSTEPS FR AM411 

*OM LAST PRINT, 9X,I4/23X,8H (N/M**2) /22X , 8 HVELOCITY , E22.5,30X, 17HAVE AM412 
♦RAGE STEP SI7,E,0PE24. 5/23X, 7H (M/SEC) /22X,7HDENSITY, 1PE23. 5, 30X, AM413 

* 2 OHCONT ROLLING VARI ABLE , 1 1 X , 2A 4/2 3X , 9H (KG/M**3) /22 X, 1 1 HTEM PER ATUR AM414 
*E, E 19. 5/2 3X, 7H (DEG K) /22X, 1 4H M A SS FLOW R ATE, E 16. 5/2 3X, 8H (KG/SFC) / AM415 

* 22X,7HENTROPY,E23.5, 30X, 14HRELATIVF ERROR, 0PE27. 5/2 3X, 1 6H (JOULF/K AM416 
♦G/DEG K) /22X, 1 1HMACH NU MB EP , 1 PEI 9. 5 , 3 OX , 20HP REDICTOR ITERATIONS, AM417 

* 1 1X,I3//22X,5HGAMMA, E25.5) AM418 

AM419 

IF {12 .EQ. 0) GO TO 49 AM420 

IS = II + 1 AM421 

DO 248 K=IS , IT AM422 

KK = NEGL(K) AM423 

ES P ( 1 , K) = SPNM ( 1 , KK) AM424 

248 ESP (2 , K) = SPNM (2 , KK) AM425 

WRITE (6,130) ((ESP(I,K) ,1=1,2) ,K=IS, IT) AM426 

AM 427 

49 WRITE (6, 131) AM428 

AM429 

CONV = 4. 1840 AM430 

IF (CONC .OR. EXCHR) GO TO 51 AM431 

AM432 

C PRINT MASS FRACTIONS AND REACTION CONVERSION RATES AM433 

WRITE (6,132) A M4 34 

WRITE (6,146) AM435 

146 FORMAT (50X, 1 5R (MOLE/M** 3/S EC) , 1 2X, 6HNUMBER, 7X , 2 1 H ( KOLE-M** 3/KG**2 AM436 

♦/SEC) ,8X,11H (CGS UNITS)) AM437 

DO 50 J=1,LR AM438 

50 PRX(J) = XX (J) AM439 

CONV = 0.001 AM440 

GO TO 52 AM441 

AM442 

51 IF (CONC .OP. (.NOT. FXCHR) ) GO TO 54 AM443 

AM444 

C PRINT MASS FRACTIONS AND ENERGY FXCHANGF RATES AM445 

WRITE (6,134) AM446 

WRITE (6,147) AM447 

147 FORMAT (50X , 1 5H ( MOLE/M** 3/SFC) , 1 2X , 6 HNUMBER , 7X , 22H (JOULE- M** 3/KG** AM44R 

♦2/SFC) ,7X, 1 1H (CGS UNITS)) _ AM449 

A M 450 


150 



c 


c 


c 


c 


COMPUTE MASS FRACTIONS 

52 DO 53 1=1, LS 

53 PRC (T) = SIGMA {I) *MW (I) 

GO TO 59 

54 IF ({.NOT. CONC) -OB. EXCHR) GO TO 56 

PRINT MOLAR CONCENTRATIONS AND REACTION CONVERSION RATES 
WRITE (6,136) 

WRITE (6,148) 

148 FORMAT ( 1 2X , 1 2H ( MOLES/M**3) ,26X ,15H ( MOLE/M**3/SEC) , 1 2X , 6 HNUKBER , 7X 
*, 2 1H (MOLE-M**3/KG**2/SEC) ,8X,11H(CGS UNITS)) 

DO 55 J= 1 , LB 

55 PRX(J) = XX (J) 

CONV = 0.001 
GO TO 57 


PRINT MOLAR CONCENTRATIONS AND ENERGY EXCHANGE RATES 
56 WRITE (6,138) 

WRITE (6,149) 

149 FORMAT (12X, 12H (MOLES/M** 3) , 2 6X , 1 5H { MOLE/M* * 3/SEC) , 1 2X , 6 H NUMBER , 7X 
*, 22H (JOULE-M**3/KG**2/S£C) ,7X,11H(CGS UNITS)) 


COMPUTE MOLAR CONCENTRATIONS 

57 DO 58 1=1, LS 

58 PRC (I) = SIGMA (I) *RHOO 


59 DO 62 I J=1 , MAX 

IF {IJ .GT. IS .OR. IJ -GT. LR) GO TO 60 
FMOL = SIGMA (IJ) *MIXMW 
WW = W(IJ)*1000. 

XXX = PRX (IJ) *CCNV 

WRITE (6,140) (SPNM (I, IJ) ,1=1,2) ,PRC ( I J) , FMOL, WW , I J , X XX , R AT E ( IJ) 
GO TO 62 

60 IF (IJ -GT. IS) GO TO 61 
FMOL = SIGMA (TJ) *MIXMW 
WW = W(IJ)*1000. 

WRITE (6,141) (SPNM (I, IJ) ,1=1,2) , PRC (IJ) , FMOL, WW 
GO TO 62 

61 XXX = PRX (IJ) *CQNV 

WRITE (6.142) IJ, XXX, RATE (IJ) 

62 CONTINUE 

TXXH = TXXH*4. 1840 

WRITE (6,143) MIXMW.TXXH.CSUM 

WRITE (6,150) 

150 FORMAT (48X.22H (JOULE-M**3/KG**2/SFC) ) 

GO TO 78 


AM451 

AM452 

AM453 

AM454 

Afl455 

AM456 

AM457 

AM458 

AM459 

AM460 

A M 46 1 

AM462 

AM463 

AM464 

AM465 

AM 466 

AM467 

AM468 

AM469 

AM470 

AM471 

AM472 

AM473 

AM474 

AM475 

A M 4 7 6 

AM477 

AM478 

AM479 

AM480 

AM481 

AM482 

AM483 

AM484 

AM485 

AM486 

AM487 

AM488 

AM489 

AM490 

AM491 

AM492 

AM493 

AM494 

AM495 

AK496 

AM497 

AM498 


PRINT OUTPUT IN INTERNAL (CGS) UNITS 
63 WRITE (6,151) TIME, AR E A , X , P ,N H , V , A VH , PHO , (S N AM (I , JCV) , I- 1 , 2 ) , 

* T, MDOT, TENT, ERRN.M ACH, KCUNT, GAMMA 

151 FORMAT (16X.4HTIMF, 1PE14.5.5H S EC , 1 4X , 4H AREA , El 4. 5 , 7H SO CM, 

* 1 4X, 14HAXI AL POSITION , E 1 4 . 5 , 4 H C K///20 X , 1 5 HFLOW P POP EFT T ES , 45X , 2 

♦ 2 HINT EGR AT ION INDICATOR S//22X, 8HPRESSUR E.0PF2 1.5,29X,21HSTEFS FPCM 

♦ LAST PRINT, 9X,I4/23X,5H (ATM)/22X,8HVELOCITY,F20.2,32X, 17HAV FR AGE 
♦STEP SI7. F , E2 4. 5/23X.8H (CM/SEC) /2 2X , 7HDEN 3ITY , 1 PE23. 5 , 30X , 20HCONTPO 
♦LLING V API ABLE, 1 1 X , 2 A4/23 X , 1 0 H (GM/C«**3) /22X, 11HTFMPERATURE, 

* 0PF17. 2/23X.7H (DEG K) /22X , 1 4HMASS FLOW RATE, 1PF16. 5/23X.8H (GM/SEC 
*) /22X , 7 HENTPOFY , OPF 2 3. 4 , 30 X , 1 4 HP EL ATT VF EPPOP, E27. 5/2 3X, 1 4H (CAL/GM 
*/DEG K) /22X, 1 1HMACH NUMBER,F19.4,30X, 20 H PREDICT OP ITEP ATION S , 1 1 X , 

♦ I3//22X,5HGAMMA,F25.4) 


AM499 
AM500 
AM501 
AM502 
A M 5 0 3 
AM504 
AM505 
AM506 
AM507 
AM508 
AM509 
AM510 
AM51 1 
AM512 
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IF (12 .FQ. 0) GO TO 64 AM513 

IS = II + 1 AM514 

DO 263 K=IS , IT AM515 

KK = NFGI (K) AM516 

ESP(1,K) = SPNM (1 , KK) AM517 

263 ESP (2 , K) = SPNM (2 , KK) AM518 

WRITE (6,130) ( (ESP (I,K) ,1=1 ,2) ,K=IS,IT) AM519 

AM520 

64 WRITE (6,131) AM521 

A M522 

IF (CONC .OB. EXCRR) GO TO 66 AM523 

AK524 

C PRINT MASS FRACTIONS AND REACTION CONVERSION RATES AM525 

WRITE (6,132) AM526 

WRITE (6,152) AM527 

152 FORMAT (50X, 16H (MOLE/CM** 3/SEC) , 1 1 X , 6HNUMBER , 7X, 22H (MOLF-CM**3/G K* AM528 

**2/SEC) ,7X,11H(CGS UNITS)) AM529 

DO 65 J=1,LB AM530 

65 PRX (J) = XX (J) AM531 

GO TO 67 AM532 

AM533 

66 IF (CONC .OR. (.NOT. EXCHR) ) GO TO 69 AM534 

AM535 

C PRINT MASS FRACTIONS AND ENERGY EXCHANGE PATES AM536 

WRITE (6,134) AM537 

WRITE (6,153) AM538 

153 FORMAT (50X , 16H (MOLE/CM** 3/SEC) , 1 1 X , 6HNU MBER , 8 X, 2 1 H (CAL-CM** 3/GM** AM539 

*2/SEC) ,7X, 1 1H (CGS UNITS)) AM540 

AM541 

C COMPUTE MASS FRACTIONS AM542 

67 DO 68 1=1, IS AM543 

68 PRC (I) = SIGMA (I) *MR (I) AM544 

GO TO 74 AM545 

AK546 

69 IF ((.NOT. CONC) .OR. EXCHR) GO TO 71 AM547 

AM548 

C PRINT MOLAR CONCENTRATIONS AND REACTION CONVERSION PATES AM549 

WRITE (6,136) AM550 

WRITE (6,154) AM551 

154 FORMAT { 12X, 1 3 H ( MOLES/CM** 3) , 2 5 X , 1 6H (MOLE/C M** 3/SEC) , 1 1 X , 6H NUMBER, AM552 

*■ * 7X , 22H ( MOLE-CM**3/GM**2/S EC) ,7X,11H(CGS UNITS)) AM553 

*•' DO 70 J=1,LB AM554 

70 PRX (J) = XX (J) AM555 

GO TO 72 AM556 

AM557 

C PRINT MOLAR CONCENTRATIONS AND ENERGY EXCHANGE RATES AM558 

71 WRITE (6,138) AM559 

WRITE (6,155) AM560 

155 FORMAT (12X, 13H ( MOLES/CM** 3) ,25X, 16H (MOLE/CM** 3/SEC) , 1 1X,6HNUMBEP, AM561 

* 8X,21H (CAL-CM**3/GM**2/SEC) ,7X ,11H (CGS UNITS)) AM562 

AM563 

C COMPUTE MOLAR CONCENTRATIONS AM564 

72 DO 73 1=1, LS AM565 

73 PRC (I) = SIGMA (I) *RHO AM566 

AM567 

74 DO 77 10=1, MAX AM568 

IF (IJ .GT. LS .OR. IJ .GT. LR) GO TO 75 AM569 

FMOL = SIGMA (IJ) *MIXMW AM570 

WRITE (6,140) (SPNM (I, IJ) ,1 = 1,2) , PRC (IJ) , FMOL, W (IJ) ,IJ,PRX(IJ) , AM571 

* PATE { I J) AM572 

GO TO 77 AM573 
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75 IF (IJ .GT. LS) GO TO 76 
FMOL = SIGMA (IJ) *MIXMW 

WRITE (6,141) (SPNM (I, IJ) ,1=1 , 2) , PRC (IJ) ,FMOL> W (IJ) 

GO TO 77 

76 WHITE (6,142) IJ , PRX (I J) , H ATE (I J) 

77 CONTINUE 

WRITE (6,143) HIXB»,TXXH,CStJM 
WRITE (6,156) 

156 FORMAT (49X,21H (CAL-CM**3/GM**2/SEC) ) 

78 WRITE (6 157) 

157 FORMAT (//2 (4X,8HVARIAEIE,5X, 10 HDERI VATT VE , 6 X , 9H I NCR EM ENT, 6 X , 1 4 FPE 
♦LATIVE ERROR, 4X) ) 

I = LSP3/2 

LP = L 
DO 79 1=1, L 
LP = IP + 1 

WRITE (6,158) (SNAM (K,I) ,K=1,2) ,F (I) ,RK(I) ,E (I) , 

♦ (SNAB(K,LP) ,K=1,2) ,F(LP) , SK (LP) ,E(LP) 

158 FORMAT ( 2 (4X , 2A4 , 2 (4 X , E 1 2 . 5) , 5X ,E 1 2- 5 , 5X) ) 

79 CONTINUE 

IF (2*L .EC. LSP3) GO TO 80 

WRITE (6,159) (SNAM (K,LSP3) ,K=1 ,2) ,F (LSP3) , RK (LSP3) , E (LSP3) 

159 FORMAT (7 OX , 2 A4 , 2 (4X , E 1 2. 5) , 5 X , E 1 2. 5) 

80 IF (.NOT. DEUGO) GO TO 82 
DEBUG OUTPUT (INTERNAL UNITS) 

IF (VERSA .NE. AREAV) GO TO 83 
WRITE (6,160) A A, BB,DA, D2A, DTERM 

160 FORMAT ( 1H1 , 12X,2HAA , 1 8X,2HEB, 13X, 1 5RD (AREA) /B (IVAR) , 8X , 17HD2 (AREA 
*) /D (IVAR) 2,8X,27H (1/AREA) *D (AREA) /D ( IV A R) - A A/8X , El 2. 5 , 8 X , E 1 2. 5 , . X, 

♦ E12.5,12X,E12.5, 18X,E12.5) 

GO TO 84 

83 WRITE (6,164) AA,BB, DA, D2A, DTERM , TtT „ n4 hY 

164 FORMAT ( 1 Hi , 1 2X , 2H A A , 1 8 X ,2HEB , 1 1 X, 19 HD ( PRESSURE) /D (IV AR) ,4X,21HD2( 

♦ PRESSURE) /D (IVAR) 2, 4X , 32H ( 1 /PRESSURE) *D (PRESSURE) /D (IVAR) /8X,E12.5 
♦,8X,E12.5,9X,E12.5,12X,E12.5,18X,E12.5) 

84 WRITE (6,161) (I,I=1,LR) 

161 FORMAT (/37X, 58HOMEGA (I, J) PATE OF PRODUCTION OF SPECIES I BY RE 

♦ ACTION J//1 X, 7HSPECIF.S, 55X,8HPE ACTION/ (18X, 12 ,7115) ) 

DO 81 1=1, LS 

WRITE (6,162) (SPNM(K,I) , K= 1 , 2) , (OMEGA (I, J) , J= 1 , LR) 

162 FORMAT (/2X , 2 A4 , 8E 1 5. 5/ ( 1 OX , BE 1 5. 5) ) 

81 CONTINUE 

82 IF (ABS (1.-CSUM) .LE. .001) RETURN 
WRITE (6,163) 

163 FORMAT (7H0 (OUTP) , 5X , 1 9 HINV A LID COMPOSITION) 

NEXT = .TRUE. 

RETURN 

END 

5IEFTC PREDD DECK 

SUBROUTINE FRED 

C PERFORM ALL NECESSARY PR F-D FRIV ATIVE CALCULATIONS 
DOUBLE PRECISION DP1,DP2 


AM574 

AMS75 

AM576 

AM577 

AM978 

AM579 

AM5 80 

AM581 

AM582 

AM583 

AM584 

AM585 

AM5R6 

AM587 

AM5P8 

AM589 

AM590 

AM591 

AM592 

AM593 

AM594 

AM595 

AH596 

AM597 

AM598 

AM599 

AM600 

AM601 

AM602 

AM603 

AM604 

AM605 

AM606 

AM607 

AM608 

AM609 

AM610 

AM61 1 

AM612 

AM61 3 

AM61U 

AM615 

AM616 

AM617 

AM618 

AM619 

AM 620 

AM621 

AM622 

AM623 

AM6 24 

AM625 

AM626 

AM627 

AN001 
AN002 
A N 0 0 3 
ANODU 

AN005 
A NO 06 
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LOGICAL ALLM1 ,TCCN,NEXT AN007 

AN008 

REAL IVAR,MDCT,LKEO,MM,N,M, MIXMW,M2 AN009 

AN010 

CCMKON/OPTS/VERSI,TIMEV,VFPS A, A PE AV , ELIM,TCON, PHOCON, IPPCOD ANOI 1 

COMMCN/COND/DVAR,AREA,MDOT,P, I V AP, V ,RHO ,T, SIGMA (25) , I S , LSP3 , NEXT ANOI 2 

COMMON/ SPEC/SN AM (2 , 3 0) , M W (2 5 ) , W (2 5) , STOIC (25,30) , OMEGA (25, 3 0) AM0 13 

COMMON/FE AC/LSR (4 , 30) , XX (10) , PATE (30) ,LKEO (30) , DLKEO { 30) , MM ( 30) , LP ANOI 4 
COM EGN/RB AT/A (30) ,N (30) # EACT(30) ,B (30) ,H (25,30) , ALLM 1 AN015 

CO MMGN/GHSC/GRT (25) , HRT (25) , S P ( 25) , CPF (2 5) , DCPR (25) A N0 16 

COMMCN/NECC/FR,MIXMW, M2, GAMMA, TCPR, P AN017 

COKMON/SABS/S1 , A A, P.B , S 2 , D A , D2 A , DT EPM A NO IP 

ANO 19 

IF (TCON) GC TO 5 AN020 

GO TO 1 A NO 21 

AN022 

ENTPY PEED 1 AN023 

MWAFN = 0 AN024 

C THERMODYNAMIC PROPERTIES AN025 

1 CALL THEM (T,1.) AN026 

AN027 

ALOGRT = ALCG (RR*T) AN02P 

DO 4 0=1, LR AN029 

ANO 30 

C REACTION FATE CONSTANT AN031 

PATE ( J) = A (J) *T**N (J) *EXP (-B (J) /T) AN032 

A N 0 3 3 

C IN KEQ AND D (LN KEQ) /DT AN034 

N1 = LSR (1 , J) AN035 

N2 = LSR (2 , J) A N03 6 

N3 = LSR (3, J) AN037 

N4 = LSR (4,J) ANO 38 

DELG = GRT (N 3} - GRT (N2) AN039 

DELH = HPT (N3) - HPT(N2) AN040 

IF (N 1 .GT. 0) GO TO 2 AN041 

DELG = DE.LG + GFT(N4) AN042 

DELH = DELH + HPT(N4) AN043 

LKEQ(J) = -DELG - ALOGRT AN044 

DLKEQ(J) = (DELH - 1 . ) /T AN045 

GO TO 4 A N 0 4 6 

2 IF (N4 .GT. 0) GO TO 3 AN047 

DELG = DELG - GFT(NI) AN048 

DELH = DELH - HRT (El) AN049 

LKEQ(J) = -DELG + ALOGRT AN050 

DLKEQ(J) = (DELH + 1 . ) /T AN051 

GO TO 4 A N05 2 

3 DELG = DELG «■ GRT(N4) - GRT(NI) AN053 

DELH = DELH + HRT (N4) - HRT(NI) AN054 

LKFQ(J) = -DELG AN055 

DLKEO (J) = DELH/T AN056 

4 CONTINDE AN057 

A NO 5 8 

C MIXTURE MOLECULAR WEIGHT AN059 

5 SSUM = 0. AN060 

DO 6 1=1, LS AN061 

6 SSUM = SSUM + SIGMA (I) AN062 

MIXMW = 1 . /SSUM A N 0 6 3 

AN064 

C ASSIGNED VARIABLE AN065 

IF (IPRCCD .GT. 2) GO TO 7 AN066 

X = IVAR A N 0 6 7 

IF (VERSI .EO. TIMEV) X = PVAR ft N 0 6 8 

CALL CINP (X,AVAP,DA,D2A) AN068 

GO TO 3 ft NO 7 C 
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7 TIME = DVAR 

IF (VEFSI .EQ. TIME?) TIME = IVAR 
CALL CINP (TIME, AVAR, DA, D2A) 

C CALCULATED VARIABLE 

8 IF (VERSA .EC. AREAV) GO TO 9 
P = AVAR 

IF (V .NE. 0.) AREA = MDOT/(FHO*V) 

GO TO 10 

9 AREA - AVAR 

P * BHO*RR*T/MIXMW 
C MASS FLOW RATE 

MDOT = RHO* AREA*V 

10 DO 20 J=1,LR 
N 1 = LSR (1,0) 

N2 = LSR (2, J) 

N3 = LSR (3, J) 

N4 = LSR (4, J) 

C THIRD BODY FACTOR 

MM (J) = 0. 

IF (N 1 .NE. 0 .AND. N4 .NE. 0) GO TO 13 
IF (ALLM1) GO TO 12 
DO 11 1=1, LS 

11 MM (J) = MM (J) + M (I, J) *SIGMA (I) 

GO TO 13 

12 MM (J) = SSUM 

13 EXP 1 = RATE (J) 

E X P 2 = 1 . 

IF (LKEQ(J) .GT. 0.) GO TO 14 
EXP2 = EXP (-LKEQ (J)/2.) 

GO TO 15 

14 EXP1 = EXP (ALOG (RATE (J) ) - LKEQ (J) ) 

C NET REACTIGN CONVERSION RATE 

15 IF (N 1 .GT. 0) GO TO 17 

IF (N 1 -IT. 0) GO TO 16 

DPI = RATE (0) *SIGMA (N2) 

DP2 = RH0*EXP1*SIGMA (N3) *EXP2*SIGMA (N4) *EXP2 
XX (J) = MM (J) * (DPI - DP2) 

GO TO 20 

16 DPI = RATE (J) *SIGMA (N2) /RHO 

DP 2 = EXP1*SIGMA (N3) *£XP2*SIGMA (N4) *EXP2 
XX (J) = DPI - DP2 
GO TO 20 

17 IF (N4 .GT. 0) GO TO 19 

IF (N4 .LT. 0) GO TO 18 

DPI = RHO*SIGMA (Nl) *RATE (J) *STGMA (N2) 

DP2 = EXP1*EXP2*5IGMA (N3) *EXP2 
XX (J) = MM (J) * (DPI - DP2) 

GO TO 20 

18 DPI = SIGMA (Nl) *RATE (J) *SIGMA (N2) 

DP2 = EXP1*SIGMA (N3) *EXP2/RHO* EXP2 
XX (J) = DPI - DP2 

GO TO 20 

19 DPI - SIGMA (Nl) *RATE (J) *SIGMA (N2) 

DP2 = EXP2*SIGMA (N3) *EXP1*SIGMA (N4) *EXP2 
XX (J) = DPI - DP2 


AN071 

AN072 

AN073 

AN074. 

AN075 

AN076 

AN077 

A NO 7 8 

AN079 

AN080 

AN081 

AN082 

AN083 

AN084 

AN085 

AN086 

AN087 

AN088 

AN 089 

AN090 

AN091 

AN092 

AN093 

AN094 

AN095 

AN096 

AN097 

AN098 

AN099 

AN 1 00 

AN101 

AN102 

AN103 

AN 1 04 

AN105 

AN 1 06 

AN107 

AN 1 08 

AN109 

AN 1 1 0 

AN 1 1 1 

ANl 1 2 

AN 1 1 3 

A N 1 1 4 

AN 1 15 

AN 1 16 

ANl 17 

AN 1 1 8 

ANl 19 

AN 1 20 

ANl 2 1 

AN 1 22 

A N 1 23 

AN 1 24 

A N 1 25 

ANl 26 

A N 1 27 

A Nl 28 

ANl 29 

ANl 30 
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20 CONTINUE 


RH02 = RHO*RHO 
TCPR = 0. 

DO 22 1=1, LS 


AN131 
AN 1 32 
AN133 
AN 1 34 
AN 1 35 


TOTAL CP/P 

TCPP = TCPP + CPB (I) +SIGBA (I) 

NET SPECIES PRODUCTION RATE 

iff Cl) = 0. 

DO 21 J=1,LR 

OMEGA (I, J) = RH02*ST0IC (I, J) *XX (J) 

21 W (I) = W (I) + OMEGA (I, J) 

22 CONTINUE 

GAMMA (FROZEN) 

GAMMA = TCPP/ (TCPP - 1./MIXMW) 

BACH NUMBER SQUARED 
M2 = V/R*V/T*MIXMW/GAMMA 


(M2 „LT. 0.0025 .OR. M2 .GT. 1.1025)) 


IF (VERSA .NE. AREAV .OR. 

* GO TO 23 
WMACH = SQRT (M2) 

WRITE (6,101) WMACH 

101 FORMAT (7H0 (PRED) , 5X , 7HWARN ING , 3X, 1 3HMACH NUMBFR =,F8.4,19H IS APP 
*ROACHING 1.0) 

MWARN = MWARN + 1 
IF (MWARN .IT. 15) GO TO 23 
WRITE (6,102) 

102 FORMAT (7H0 (PRED) ,5X,25H15 WARNINGS HAVE OCCURRED) 

NEXT = .TRUE. 

RETURN 

23 CALL DERV 

RETURN 

END 

SIEFTC DERVV DECK 

SUBROUTINE DERV 

C COMPUTE ALL DERIVATIVES WFT THE INDEPENDENT VARIABLE 
DOUBLE PRECISION DPS1,DPS2 
LOGICAL TCON , RHOCON 
REAL IVAR,MIXMW, M2 

COMMO N/OPTS/VERSI, TIM EV , VERSA, AR EAV,ELTK , TCON, RHOCON, I PRCOD 
COMMON/CO ND/D VAR ,AREA,MDOT,P,IVAP,V ,RHO,T, SIGMA (25) , LS , LS P 3 , NEXT 
CONMON^SPEC/SNAM (2,30) , MW (2 5) ,W (25) , STOIC (25,30) , OMEGA (25,30) 

COM MON/GHSC/GPT (25) ,HRT (25) ,SR (25) , CPP (2 5) , BCPR (25) 

CO SMON/DERN/F (28) , ALPHA (28) , BETA (28,28) 
COMMON/NECC/RF,«IXMW,M2,GAMMA,TCPR,R 
COMMON /SABS/SI, AA,BB,S2, DA, E2A,DTEFM 

EQUIVALENCE (DV,E(1)) 


AN136 
AN137 
AN138 
AN 1 39 
AN140 
AN141 
AN142 
AN 1 43 
AN1 44 
AN145 
AN 1 46 
AN147 
AN148 
AN 1 49 
AN 150 
AN 1 5 1 
AN 1 52 
AN153 
AN154 
AN155 
AN 156 
AN 157 
AN 1 58 
AN159 
AN160 
A N 1 6 1 
AN 1 62 
AN 1 63 
AN164 
AN 165 
AN166 
A N 1 67 
AN168 
AN 1 69 

AO001 
AO002 
A0003 
A0004 
A0005 
A0006 
AO007 
A0008 
A0009 
AOOIO 
Aoon 
AO012 
AGO 1 3 
A0014 
AO015 
AO016 
AO017 
AO018 
AO019 
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A0020 

D2ADT2 (D2) = V*V*D2 ♦ DV/V*DA A0021 

D2ADX2(D2) = (D2/V - DV*DA)/V A0022 

AGO 23 

DPS 1 = O.DO AOQ2U 

DPS 2 = O.DO AO025 

DO 1 1=1,3 A0026 

F (I) = 0. AO027 

1 ALPHA (I) = 0- A0028 

A0029 

DENM = BHO A0030 

IF (VERSI .HE. TIMEV) DENM = RHO*V AO031 

DO 2 1=1, LS A0032 

II = I + 3 A0033 

A0034 

C DSIGMA/DIVAP A0035 

F (II) = N (I) /DENM A0036 

AO037 

C SI FOR AA AO038 

DPS 1 = DPS1 + F (II) AO039 

C S2 FOR BB AO040 

2 DPS2 = DPS2 * HRT (I) *F (II) AO041 

AO042 

51 = MIXMW*DPS1 A0043 

52 = MIXMW*DPS2 A0044 

A0045 

GAM 1 = GAMMA - 1. A0046 

C EB FOR DERIVATIVES AO047 

BB = GAM 1/GAMM A*S2 AO048 

AO049 

C AA FOR DERIVATIVES A0050 

AA = Si - BB AO051 

A0052 

C DAVAR/DIVAR A0053 

IF (VERSI .EQ. TIMEV .AND. IPRCOD .LF. 2) DA = V*DA A0054 

IF (VERSI .HE. TIMEV .AND. IPRCOD . GE. 3) DA = DA/V A0055 

A0056 

IF (VERSA .NE. AREAV) GO TO 4 A0057 

C ASSIGNED AREA EQUATIONS AO058 

DTERM = DA/AREA - AA A0059 

T 1 = 1. / (M2 - 1.) AO060 

T2 = M2*T 1 AO061 

A0062 

C CV/DIVAR AO063 

F { 1) = V*T1*DTERM A0064 

AO065 

C DRHO/DIVAR AO066 

IF (.NOT. RHOCON) F(2) = -RHO* (T2*PTEPM + AA) A0067 

A0068 

C DT/DIVAR AO069 

IF (.NOT. TCON) F ( 3) = -T* (GAM 1 *T2*DTERM + 9B) A0070 

AO071 

C CAREA/DIVAR HRT IVAR AO072 

IF (VERSI .EO. TIMEV .AND. (IPRCOD . EQ. 1 .AND. V . NE. 0.)) D2A = AO073 

* D2ADT2 (D2 A) AO074 

IF (VERSI .NE. TIMEV AND. IPRCOD .EQ. 3) D2A = D2ADX2(D2A) AO075 

AO076 

T3 = (D2A - DA*DA/AREA) /AREA AO077 

A0078 
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C USTGMA/DIVAB BBT IVAR A0079 

DO 3 1 = 4 , LS F3 AOORO 

3 ALPHA (I) = 0. A OOR 1 

A0082 . 

C EV/DTVAR WRT IVAR AO083 

ALPHA (1) = v*T 1 *T3 AO0R4 

AO085 

C DRHO/DIVAR WET IVAR AO086 

IF (.NOT. PHOCON) ALPHA (2) = -RHO*T2*T3 AO0B7 

AO088 

C DT/DIVAR BBT IV AR A0089 

IF (.NOT. TCON) ALPHA (3) = -T*GAM 1*T2*T3 AO090 

AO091 

GO TO 6 A0092 

C ASSIGNED PRESSURE EQUATIONS AO093 

4 DTERM = DA/P AO094 

T 2 = -1. /GAMMA AO095 

A0096 

C DV/DIVAR AO097 

IF (V .ME. 0.) F (1 ) = -DA/ (RHO+V) * 1. 0 1325E+06 A0098 

A0099 

C DRHO/DIVAR A0100 

IF (.NOT. RHCCON) F(2) = -RHO* (T2*DTERM + AA) AO101 

A0102 

C BT/DTVAR A0103 

IF (.NOT. TCON) F (3) = -T* (GA M 1 *T2*DTEFM + BB) A0104 

A0105 

C DP/DTVAR WRT IVAR A0106 

IF (VFRSI .EQ. TIMEV -AND. IPRCOD . FQ. 2) D2 A = D2ADT2 (D2A) A0107 

IF (VERSI .NF. TIMEV . AND. IPRCOD .EC. 4) D2A = D2ADX2(D2A) AO108 

AO 1 09 

T 3 = (D2A - DA*DA/P)/P AO110 

AO 1 1 1 

C DSIGKA/DI VAR WFT IVAR A0112 

DO 5 1=4 # LSP3 A0 113 

5 ALPHA (I) = 0. A0 1 1 4 

A0115 

C DV/DIVAR WRT IVAR A0118 

IF (V .NF. 0.) ALPHA(I) = -D2 A/ (RHO*V) * 1 .0 1 325E + 06 A0117 

A01 18 

C DFHO/DIVAB WFT IVAR A0119 

IF (.NOT. RHOCON) ALPHA (2) = -RHO*T2*T3 AO120 

A0 1 2 1 

C DT/DIVAR WRT IVAR A0122 

IF (.NOT. TCON) ALPHA (3) = ~T*GAM 1*T2*T3 A0123 

A0124 

6 CALL FARE A0125 

A0126 

RETURN A 0 1 27 

END A0128 

$ IEFTC PARED DECK 

SUBROUTINE PARD AP001 

A POO 2 

C COMPUTE ALL MIXED PARTIAL DERIVATIVES AP003 

AP004 

LOGICAL TCON , RHOCON AP005 

A POO 6 

PEAL LKEQ,M«,N,M,MIXMW,K2 AP007 

AP008 
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c 


DIMENSION PXXRHO (30) ,PXXT (30) , PXXSIG (30,25) , PGSIG(25) , PM2SIG(25) , 
* PS1SIG (25) , PS2SIG (25) ,PAASIG(25) , PBBSIG (25) 


COMSON/OPTS/VERSl,TlMEV, VERSA, AREAV , ELTM , TCON, FHOCON, I PECO D 
COMMON/COND/DVAR ,AREA, M DOT , P , TV A R , V ,RHO,T,S IGMA { 25) , LS , LSP3 , NEXT 
COMMON/SPEC/SNAM (2,30) ,MW (25) ,W(25) , STOIC (25,30] T R 
COMMON/RE AC/ LSR (4,30) ,XX (30) , RATE (30) ,LKEQ (30) , DLKEQ (30) ,HM (30) , 
COMMCN/BRAT/ A (30) ,N (30) ,EACT{30) ,B (30) ,M (25,30) , ALLM 1 
COMMON/GHSC/GRT ( 25) , HRT ( 25) , SP (25) ,CPP (2 5) , DC PR (25) 

COMMON/NECC/RR ,MI XMW, M2, GAMMA, TCPR,R 
COM MON/ SABS/SI, A A, BB,S2,DA,D2A,DTEEM 
COMMON/DERN/E (28) , ALPHA (28) ,EETA (28,28) 


DO 1 I=1,LSP3 
DO 1 K=1,LSF3 
1 BETA (I, K) = 0. 


DO 2 J=1,LR 
DO 2 1*1, LS 

2 PXXSIG (J,I) - 0. 

XX(J) SRT RHC ,T , SIGMA (I) 

DO 9 J=1,LR 
N 1 = LSR(1,J) 

N2 = LSR (2,J) 

N3 = LSR (3,J) 

N4 = LSR (4, J) 

EXP 1 = RATE (J) 

EXP 2 = 1 * 

IF (LKEQ(J) -GT. 0.) GO TO 3 
EXP2 = EXP (-LKEQ (J) /2.) 

GO TO 4 

3 EXP1 = EXP (ALOG (RATE (0) ) - LKEQ(J)) 


+ XX (0) / M M ( J) * 
+ XX (J) /MM (J) * 


; IF (N 1 . GT. 0) GO TO 6 
IF (N 1 -LT. 0) GO TO 5 

PXXRHO(J) = -MM (J) *EXP2*SIGMA (83) *EXPl*SIGMA (N4) *EXP2 
PXXT (J) = MM (J) *EXP1*RHC*SIGMA(N3) *EXP2*SIGMA (N4) * EXP 2* DLKEQ (J) 

PXXSIG (J,N2) = RATE (0) *MM (J) + XX ( J)/KM (J) *M (N2, J) 

PXXSIG (J,N3) = -MM (J) *EXP1*RH0*EXP2*SIGMA (N4) *EXP2 

* M(N3,J) 

PXXSIG ( J, N4) - —MM (J) *EXPl *RHO*EXP2*SIGM A (N3) + EXP2 

♦ M(N4,0) 

GO TO 9 

5 PXXRHO (J) = -BATE (J) /RHO*SIGMA (N2) /RHO 

PXXT (J) = EXP1*SIGMA (N3) *EXP2*SIGMA (N4) *EXP2*DLKEQ (J) 

PXXSIG ( J, N2) = RATE (J) /RHO 

PXXSIG (J,N3) = -EXP2* (EXP1*SIGMA (N4) ) *FXP2 
PXXSIG (J,N4) = -EXP2* (EXP1*SIGMA (N3) ) *EXP2 
GO TC 9 


IF (N4 .GT. 0) GO TO 8 
IF (N4 .LT. 0) GO TO 7 

PXXRHO (J) = MM (J) *SIGMA (N1) *RATE (J) *SIGMA (N2) 

PXXT (0) = EXP2*MM (J) *EXP1*SIGMA (N3) *EXP2* DLKEQ (J) 

PXXSIG (J.Nl ) = MM (J) *RHO*RATE (J) *SIGMA (N2) + XX ( J) /MM ( J) *M (N1 * J) 

PXXSIG(J,N2) = MM (J) *RHC*R ATE ( J) *SIGMA (N 1) + XX ( J) /MM (J) *M (N 2, J) 

PXXSIG ( J, N3) = -EXPl* (EXP2*MM(J)) *EXP2 + XX ( J) /MM ( J) *K (N3 , J) 

GO TC 9 
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7 PXXRHO(J) = EXP1*SIGMA (N3)*EXP2/R HO* EXP 2/RHO 
PXXT(J) = EXP1*5IGMA ( N 3 ) *EXP2/RHO*FXP2*DLKEQ (J) 

PXXSXG (J* Nl) = RATE(J) *SIGMA (N2) 

PXXSIG (J, N2) = FATE (J) * SIGMA (N 1) 

PXXSTG ( J, N3) = -EXP2*EXP1* (EXP2/FHO) 

GO TO 9 

8 PXXRHO(J) = 0. 

PXXT(J) = EXP1*SIGMA (N 3> *EXP2*SIGMA (N4) *EXP2*DLKEQ (J) 
PXXSIG ( J , N 1 ) = RATE f J) *SIGMA (N2) 

PXXSIG (J, N2) = RATE (J) *SIGMA f N 1) 

PXXSIG ( J, N3) = -EXP2* (EXP1*SIGMA (N4) ) *FXP2 
PXXSIG (J,N4) = -EXP2* (EXP1*STGMA (N3) ) *EXP2 

9 PXXT { J) = PXXT (J) + XX (J) * (N (J) + B(J)/T)/T 

GTGM1 = GAMMA* (GAMMA - 1.) 

PGAMT = 0. 

C GAMMA KRT SIGMA (I) AND MACH NUMBER SQUARED WRT SIGMA (I) 
DO 10 1=1 r IS 

PGSIG(I) = GTGM 1 * (MIXM W - CPF (I) /TCPF) 

PM2SIG (I) = -M2*(MIXMW + PGSIG (I) /GAMMA) 

10 PGAMT = PGAMT + SIGMA (I) *DCPF (I) 

C GAMMA WRT T 

PGAMT = -GTG M 1 /TCP R* PGAMT 

C MACH NUMBER SQUARED WRT V 

PM2V = 2,*V*MIXMW/(GAMMA*R*T) 

C MACH NUMBER SQUARED WRT T 

PM2T = -H2*(1./T + PGAMT/GA MM A) 

TERM = RHO 

IF (VERSI . EQ. TIMEV) GO TO 12 
TERM = RHO/V 
C DSIGHA/DIVAF WRT V 

DO 11 11=4, ISP3 

11 BETA (II , 1 ) = -P(II)/V 

C DSIGMA/DI VAR KRT V AND DSIGMA/DI V AF WFT T 

12 DO 14 11=4, LSP3 
I = II - 3 

DO 13 J=1,LR 

BETA (11,2) = BETA (II , 2) + STOIC (I, J) +PXXFHO (J) 

13 BETA (11,3) = BETA (11,3) + STOIC (I, J) *PXXT (J) 

BETA (II , 2) = F { II) /RHO + TERM*BFTA (II , 2) 

14 BETA (11,3) = TEFM*BETA (11,3) 

C ESIGMA (I) /DIVAR WRT SIGMA (K) 

DO 16 11=4, LSP3 
I = II - 3 
DO 16 K K=4 , LSP3 
K = KK - 3 
DO 15 J=1,LR 

15 BET A ( II , KK) = BETA (II, KK) + STOIC (I, J) *PXXSIG (J, K) 

16 BETA (IT, KK) = TERM*BET A (II , KK) 

C SI WRT V,FHO,T, SIGMA (I) AND S2 WFT V , FHO , T , SIG MA (I) 

ps i v = o. 

PS1PHO = 0. 

PS IT = 0. 
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PS2.V - 0. 

PS2RHO = 0. 

PS2T - 0. 

DO 18 TI=4,LSP3 
I = II - 3 

P S 1 V * PS1V + BETA (11,1) 

PS 1 RHO •= PS 1 RHO + BETA (11,2) 

PS IT = PS 1 T ♦ BETA (IT, 3) 

PS2V = PS2V + HRT (I) *BETA (II, 1) 

PS2RHO = PS2PKO + HRT (I) *3 ETA (1 1 , 2) 

PS2T = PS2T + HRT (I) *BETA (IT, 3) ♦ CPR (I ) *F ( II) /T 

PSISIG(I) = 0- 
PS2SIG (I) = 0. 

DO 17 KK=4 , LSP3 
K = KK - 3 

PSISIG(I) = PSISIG(I) + BETA (KK , II) 

17 PS2SIG (I) = PS2STG (I) 4- HRT (K) *BE7 A (KK, II) 

PSlSIG(I) = KIXMW* (PSlSIG (X) - Si) 

18 PS2SIG (I) = MIXMW* (PS2SIG (I) - S2) 

PS 1 7 = KIXMW*PS1V 

PS1SHC a MIXKW*PS1RH0 
PS IT = MIXMW*PS1T 
PS2V a MIXMW*PS2V 
PS2RHO = MIXMW*PS2RHO 
PS2T = MIXM W* PS 2T - S2/T 


GM1DG = (GAMMA - 1. ) /GAMMA 
S20G2 = S2/ (GAMMA*GAMMA) 

C EB WRT V 

PBB V = GM1DG+PS2V 
C BB WRT RHO 

PBBRHO = GMlDG*PS2RHO 
C PB WRT T 

PBBT = GM 1 DG* PS 2T + S20G2*?GAMT 


C AA WRT V 

PAA V - PS 1 V - P3BV 
C AA WRT RHO 

PAARHO = PS 1 RHO - PBBRHC 
C AA WRT T 

P A AT = PS 1 T - PBBT 


C EB WRT SIGMA (I) AND AA WRT SIGMA(I) 

DO 18 1=1, LS 

PBBSIG(I) = GM1DG*PS2SIG (I) + S20G2* PGSIG (I) 
19 PAASTG(T) = PSISIG(I) - PBBSIG (I) 

IF (VFRSA . NE. AREAV) GO TO 24 
C ASSIGNEE AREA EQUATIONS 
T1 = 1./ (M2 - 1.) 

G A M 1 = GAMMA - 1. 


C DV/DIVAR WRT V 

B ETA (1,1) = T1* (DTERM - F(1)*PM2V - V*PAAV) 

C CV/DIVAR WRT RHO 

BETA (1,2) = -V*T1*PAARHO 
C EV/DIVAR WRT T 

BETA ( 1 , 3) = — T1*(V*PAAT + F(1)*FM2T) 

C EV/DTVAR WRT SIGMA (I) 

DO 20 II=4,LSP3 
I = TI - 3 

20 BET A (1,11) = -TI* (V*PA ASIG (I) + F ( 1 ) *PM 2 S IG ( I) ) 

IF (RHOCON) GO TO 22 
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C DR HO/DI VAR WET V AP193 

BETA (2,1) = RHO*T 1 * (P A A V + T1 * DT EE M* PM2V) AP194 

C DRHO/DIVAR WRT RHO AP195 

BETA (2,2) = RH0*T1 *PAA RHO + F(2)/RHO AP196 

C DRHO/DI-VAR WET T AP197 

BETA (2,3) = RHO*T1*(PAAT + T1*DTERM*PM2T) AP196 

C EE HO/DIVAR WET SIGMA (I) AP199 

DO 21 11=4, LSP3 AP200 

I *11-3 AP201 

21 BETA (2,11) = EH0*T1* (PAASIG (I) + T 1*DTERM*PM2SIG (I) ) AP202 

AP203 

22 IF (TCON) RETURN AP204 

C DT/DIVAR WET V AP205 

BETA (3,1) = T*(GAM1*T1* (M2*PA AV + T1*BTERM*PM2V) - PBBV) AP206 

C DT/DIVAR VET RHO AP207 

BETA (3,2) = T* (GAM1*M2*T1*PAARHC - PBBEHO) AP208 

C DT/DIVAR VET T AP209 

BETA (3,3) = T* (T1* (G AM 1 * (M2*P A AT + T 1 *DTEFM*PH2T) - M 2* DTEE M*PGA MT AP210 

* ) - PBBT) ♦ F(3)/T AP2 1 1 

C DT/DIVAR WRT SIGMA (I) AP212 

DO 23 11=4, LSP3 AP213 

I = II - 3 A P2 1 4 

23 BETA (3,11) = T* (Tl* (GAM1* (M2*PAASIG (I) + T1*DTFRM*PM2SIG (I) ) - M2* AP215 

* DTERM*PGSIG(I) ) - PBBSTG (I) ) AP216 

AP217 

RETURN AP218 

C ASSIGNED PRESSURE EQUATIONS AP219 

24 T 1 = 1./ (GAMMA* GAMMA) AP220 

AP221 

C BV/DIVAR WRT V AP222 

IF (V .NE. 0.) BETA (1,1) = -F(1)/V AP223 

C BV/DIVAR WRT RHO AP224 

BETA (1,2) = — F ( 1 ) /RHO AP225 

C DV/DIVAR WRT T AP226 

BETA (1,3) = 0. AP227 

C DV/DIVAR VET SIGMA (I) AP228 

DO 25 11=4, LSP3 AP229 

25 BETA (1,11) = 0. AP230 

AP231 

IF (RHOCCN) GO TO 27 AP232 

C DEHO/DIVAE WET V AP233 

BETA (2,1) = -BHO*P AA V AP234 

C DRHO/DIVAR WRT RHO AP235 

BETA (2,2) = F (2) /RHO - RHO*PA ARHO AP236 

C DRHO/DIVAR WRT T AP237 

BETA (2,3) = -RHO* (PAAT + T1 * DTFR M*PG A MT) AP238 

C DRHO/DIVAR WRT SIGMA (I) AP239 

DO 26 11=4, LSP3 AP240 

I = II - 3 AP241 

26 BETA (2,11) = -RHC* (PAASIG (I) + T 1 *DTEPM*PGS IG (I) ) AP242 

A P 2 4 3 

27 IF (TCON) RETURN AP244 

C DT/DIVAR WRT V AP245 

BETA (3,1) = -T*PBBV AP246 

C DT/DIVAR WRT RHO AP247 

BETA (3, 2) = -T*PSBRHO AP248 

C DT/DIVAR WRT T AP249 

BET A (3 , 3) = EB - T* (PBBT - T 1 *DTER M* PG AMT) + F (3) /? AP250 

C DT/DIVAR WRT SIGMA (T) AP251 

DO 28 11=4, ISP3 AP252 

I - II — 3 AP253 
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28 BETA (3,11) = -T* (P3BSIG (I) - T1*DTEPM*FGSIG (I) ) 

RETURN 

END 

SIBFTC THRMM DECK 

SUBROUTINE THEM (T,HONIY) 

C THIS ROUTINE CALCULATES {DIMENSIONLESS) THERMODYNAMIC PROPERTIES 
C FROM POLYNOMIAL CURVE FITS 


LOGICAL NEXT 


COMMON/COND/DUM (33) , LS , LSP3 , NE XT 

COMMON/GHSC/GPT (25) ,HRT (25) ,SR (25) , CPR (25) , DCPR (25) 
COMMON/TCOF/C ( 7,2,25 ) , TLOff, TKID , TH I 

F(T) = Al+T* (A2 + T* (A3 + T* (A4+T*A5) ) ) 

IF (T -EQ. TPREV) RETURN 

IF (0 . 35*TLO W .LB. T -AND. T -LE- TH'I) GO TO 3 
IF (T -LE. 1.20*THI) GO TO 2 


WRITE (6,100) T 

100 FORMAT (7H0 (THRM) ,5X,5HERROR,3X,3HT =,F8.2,16H 
NEXT = -TRUE. 

RETURN 


IS OUT OF RANGE) 


2 WRITE (6,101) T 

101 FORMAT (7H0 (THRM) r 5X ,7 HW ARN ING, 3X, 3 HT 
* 4X , 28H EXTRAPOLATED VALUES RETURNED) 


- ,FE. 2, 16H IS OUT OF RANGE, 


C LOCATE PROPER TEMPERATURE RANGE 
3 K = 2 

IF (T -GT. TMID) K = 1 


DO 4 1=1, LS 

C COMPUTE H/ (R*T) 

A 1 = C ( 1 , K , I) + C(6,K,I)/T 
A2 = C(2,K,I)/2. 

A3 = C(3,K,I)/3. 

A4 = C(4,K,I)/4- 
A5 = C(5,K,I)/5. 

4 HRT(I) = F(T) 

IF (HONLY .EQ. 0.) RETURN 


TPREV = T 
DO 5 1=1, LS 


C 


COMPUTE G/ (R*T) 

A 1 = C(1,K,I)*( 1 - — A LOG (T) ) + C(6,K,I)/T 
A2 = -C(2,K,I)/2. 

A3 = -C ( 3 , K , I) /6. 

A 4 = -C (4,K, T) / 1 2. 

A5 = -C (5,K,I)/20- 
GRT(I) = F(T) 


C (7 , K , I) 


C COMPUTF S/R 

A 1 = C ( 1 , K , I) *ALOG (T) ♦ C(7,K,T) 
A2 = C (2, K, I) 

A3 = C(3,K,I)/2. 
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A4 = C(U,K,I)/3. 

A5 = C ( 5 , K , I) /4 » 

SP(I) = F (T) 

C COMPUTE CP/E 

A1 = C (1,K,I) 

A2 = C(2,K,I) 

A3 = C(3,K,I) 

A 4 = C ( 4 , K , I) 

A5 = C (5, K, I) 

CPR(I) = F (T) 

C COMPUTE (DCP/DT) /P 

A 1 = C(2,K,T) 

A 2 = 2, *C (3 , K , I) 

A3 = 3. *C (4,K, I) 

A4 = U.*C(5,K,I) 

A5 = 0. 

5 DOPE (I) = F (T) 

RETURN 

END 

SIEFTC INTEE DECK 

SUBROUTINE INTE 

C SET UP AND CALL FOR INTEGRATION 

C DETAIN SUGGESTED STEP SIZE FOP NEXT INTEGRATION STEP 
EXTERNAL PERB 
LOGICAL NEXT , ELTM 
REAL IV A P 

DIMENSION YN (33) , Y (28) ,C (25) 

CCMMCN/OPTS/VERSI, TIMEV , VEPS A , A FEAV , ELI M , TCON, RHOCON, I PECO D 
CO M MG N/COND/YNP 1 (33) , LS , LSP3 , NEXT 

COMMON/SI NT/HMIK,HNN1 , HN , H NP 1 , HM AX, N H, A VH , EM AX , EFPN, JCV.KOUKT, E^PP 
CO HMON/PQRE/PK (28) , QK ( 28) , P K ( 28) , E (2 8) 

COMMON/SPEC/SNAM (2,30) ,HW (25) ,W (25) f S^OIC (25,30) , OMEGA (25,30) 

EQUIVALENCE (IVAR,YNP1 (5)) , (Y,YNP1 (6)) , (C, YNP1 (9)) r (RTNT , HNMl ) 

C INITIAL STEPS OR RESTART 
ENTRY INTI 
NREST = 0 
EMAX2 = EMAX/2. 

EMAX56 = 5. * EM AX/5. 

LSP8 = LS + 8 
HN P 1 = HINT 
DO 3 T=1,LSF8 
3 YN (I) = YNP 1 (I) 


2 CALL 

CASI 

(HN,f)K,HNP1 , PK ) 

HN = 

HNP1 

CALL 

PRED 


CALL 

CASI 

(HN, PK,HNP1,QK) 

HNMl 

= HR 


HN = 

HN P 1 


CALL 

PRED 
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DO 23 1=1, LS 

IF (C (I) . GE. 0.) GO TO 23 

WRITE (6,100) 

100 FORMAT {7H0 (INTE) , 6X r 4 3HCOMPOS IT 10 N ERROR 
*S) 

NEXT = .TRUE. 

RETURN 
23 CONTINUE 
RETURN 

PREPARE TO CONTINUE INTEGRATION 
ENTRY INTC 
DO U T= 1 , LSF8 
4 YNP 1 (I) = YN (I) 

CALL PRED 
RETURN 


GENERAL STEP 
ENTRY I NTG 

CALL CASG (HN,QK,HNP1,RK) 

RELATIVE ERROR IN INTEGRATION STEP 
FRRN = ERROR ( Y , R K , E , JCV , HN P 1} 

TEST FOR RESTART CONDITIONS 
IF (ERRN .LE. EMAX .OR. HNP 1 . GT , 


- NEGATIVE CONCENTRATION 


HMIN) GO TO 7 


WRITE (6,101) IVAR, (SNAM(J,JCV) ,J=1,2) , HNM 1 , HN , HNP 1 

101 FORMAT (7 HO (INTE) ,5X,7HRFSTAPT, 10X ,22HIN DEPENDENT V A 17 1 A EL E =,E13.5 
* , 2X , 1 1 H (CGS UNITS) ,5X,23HCONTPOLLING VARIABLE = , 2 A 4//5 1 X , 6 HH (N- 1 ) 
*, 17X,4HH (N) , 17X, 6HH (N+1 ) /4BX,3 (E 1 2 . 5 , 1 OX ) //5 1 X , SHK (N-1) , 17X,4HK (N) 
*, 17X , 6HK (N+1) , 16X,6HE (N + 1) ) 

DO 5 1= 1 , LSP8 

IF (I .GT. LSP3) GO TO 6 

WRITE (6,102) (SNAM (J,I) , J=1,2) ,PK (I) ,QK (I) ,RK (I) ,E (I) 

102 FORMAT ( 30X ,2A4 , 4 (1 OX , E 1 2. 5) ) 

5 YNP1 (I) ■= YN (I) 

NH = NH + 2 

STOP AFTER 10 RESTARTS 
IF (NREST .LT. 10) GO TO 6 
WRITE (6,103) 

103 FORMAT (7H0 (INTE) ,SX,25H10 RESTARTS HAVE OCCURRED) 

NEXT = .TRUE. 

RETURN 

6 NREST = NREST + 1 
HMIN = HMIN/2. 

HNP1 = HMIN 

GO TO 2 

7 HNM 1 = HN 
HN = HNP 1 

DO 8 1= 1 , LSF8 

IF (I .GT. LSP3) GO TO 8 

PK(I) = OK (I) 

QK(T) = RK (I) 

8 YN (I) = YNP 1 (I) 

CALL FRED 

TEST FOR NEGATIVE CONCENTRATIONS 
DO 9 1=1, LS 

IF (C(I) .GE. 0.) GO TO 9 
WRITE (6,100) 

NEXT = .TRUE. 

RETURN 
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9 CONTINUE 


C OPTIONAL AUTOMATIC ELIMINATIONS 
IF (ELIM) CALL AUTO 

C GET STEP SIZE FOR NEXT INTEGRATION STEP 
KOUNT = 0 

IF (ERRN -GE. EMAX2) GO TO 10 
IF (HN .GE. HK AX) RETURN 
CALL SEARCH (PERR , EM AX , HN , HNP 1 , H M A X) 
RETURN 

10 TF (ERRN . LE. EMAX56) RETURN 
IF (HN .LE. HKIN) RETURN 
CALL SEARCH (PERR, EHAX, RMIN, HNPl , HN) 
RETURN 


END 

SIEFTC CASMM DECK 

SUBROUTINE CASH 

C CHOOSE (1) INITIAL STEP (RESTART) FORMULA 

C (2) GENERAL STEP FORMULA 

C SET UP AUGMENTED MATRIX 

C COMPUTE INCREMENTS 

DOUBLE PRECISION A 


REAL IVAR 

CCMMCN/OPTS /VF.RSI , TIM EV , VERSA, AR E A V , ELIM , TCC N, RHCCON, IPPCOD 
COMMCN/COND/DVAR, AREA, KECT, P, IVAR,Y (28) , IS , LS P3 , N EXT 
COMMCN/DERN/F(2B) , ALPHA (28) , 3ET A (2 8,2 8) 

COM MON/M ATX/ A (28,29) 

EQUIVALENCE (VN1,Y(1)) 

DATA FPS/0 . 0001/ 

ENTRY CASI (H N , QK, HN 1 , R K ) 

DIMENSION QK (23) ,RK (28) 

C INITIAL STEP OR RESTART 
INGEN = 1 
JK = 0 
10 FI - 0. 

F2 = HN 1 

F3 = HN 1/2. 

F4 = F 3 
GO TO 2 


C 


ENTRY CASG (HN , QK , HN 


GENERAL STEP 

INGEN 

■= 2 

JK = 

0 

20 FI = 

HN 1*HN 1/ 

F 2 = 

HN1* (HN1 

F 3 = 

HN 1 

F4 = 

F 2 


1, HK) 

1 + HN) 
(2. *HN1 


*KN) 

+ HN) 
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AS003 
A.S004 
AS005 
AS006 
AS007 
AS008 
A S 0 0 9 
AS010 
AS01 1 
A S0 1 2 
A SOI 3 
AS014 
AS015 
AS016 
AS017 
AS018 
AS019 
AS020 
AS021 
A SO 22 
AS023 
A SO 2 4 
A S 0 2 5 
A SO 26 
A SO 27 
AS028 
A S 0 2 9 
AS030 
A SO 3 1 
A S 0 3 2 
A SO 3 3 
A SO 34 
A SO 3 5 
ASP 3 6 
A S 0 3 7 
A SO 3 8 
a SO 3° 
A SO UO 
ASOU 1 
A SO 4 2 
A SO 4 3 


166 



n n 


2 LSP4 = LSP3 ♦ 1 

DO 4 1= 1 ,LSP3 
DO 3 J=1,LSF3 

3 A(I,J) = -F4*EETA (I,J) 

A (1,1) = 1.D0 ♦ A (1,1) 

IP (DABS (A (I, T) ) .GE. EPS) GO TO 4 
IF (JK .GE. 3) GO TO 4 
JK = JK + 1 

HN1 = 2. * ( ( 1 . - EPS) /BETA (1,1) ) 

GO TO (10,20) , INGEN 

4 A (I, LSP4) = F1*QK(I) + P2*(F(I.) + ALPHA (I) *F3) 

CALL LESV (BK) 

VN = Y ( 1 ) 

DO 5 I=1,LSP3 

5 Y (I) = Y (I) + RK (I) 

IV AR - IV AR + HN 1 

IF (VERSI . EQ. TIMEV) GC TO 6 
DVAR = DVAR + 2.*HN1/(VN + VN1) 

RETURN 

6 DVAR = DVAR + (VN + VN1)/2.*HN1 
RETURN 

END 

SIBFTC LESV V DECK 

SUBROUTINE LESV (K) 

THIS ROUTINE IS A GENERAL DOUBLE PRECISION LINEAR EQUATION SOLVER 
IN THIS PROGRAM IT IS USED TO COMPUTE THE INCREMENTS K (T) 

DOUBLE PRECISION A,S,TS,B 

LOGICAL NEXT 

REAL K 

DIMENSION S (28) ,K (28) 

CO MMCN/COND/ DUMMY (34) , N , NEXT 
COMMON/M ATX/ A (28,29) 

NP - N+1 

DO 5 1=1, N 

C GET SCALE FACTORS 
TS = 0. DO 

DO 6 J=1,N 

B = DABS (A (I,J) ) 

IF (B .GT. TS) TS = B 
6 CONTINUE 

IF (TS .EQ. 0. DO) GO TO 100 

C SCALE ROWS 

DO 10 J= 1 , NP 
10 A (I , J) = A(I,J)/TS 
5 CONTINUE 

C BEGIN TR I ANGULAR IZ ATION 

IF (N .EQ. 1) GO TO 25 
NM = N-1 
DO 15 J= 1 , NM 


A S 0 4 4 
AS045 
A SO 4 6 
A S 0 4 7 
AS048 
AS049 
AS050 
A S 0 5 1 
AS052 
AS053 
AS054 
AS055 
AS056 
AS057 
A S 0 5 8 
AS059 
A S 0 6 0 
AS061 
AS062 
AS063 
AS064 
AS065 
A S 0 6 6 
AS067 
AS068 
AS069 

AT001 

AT00 2 

AT003 

AT004 

AT005 

AT006 

AT007 

AT008 

AT009 

AT010 

AT0 1 1 

AT012 

AT013 

AT014 

AT015 

AT016 

AT017 

AT018 

AT019 

AT020 

AT021 

AT022 

AT023 

AT024 

AT025 

AT026 

AT027 

AT028 

AT029 

AT030 

AT031 

AT032 

A T 0 3 3 

AT034 

A T 0 3 5 
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C FIND MAXIMUM ELEMENT IN COLUMN J BELOW DIAGONAL 
II = J 
JP = J+1 
DO 16 1= JP, N 

IP (DABS (A (I, J) ) .GT. DABS (A (II, J) ) ) II = I 

16 CONTINUE 

IF (II .EQ. J) GO TO 20 
C INTERCHANGE SOWS II AND J 
DO 17 L=J,NP 
TS = A (II, L) 

A (II , L) = A(J,L) 

17 A ( J , L) = TS 

C ZERO COLUMN J BELOW DIAGONAL 

20 DO 18 I=JP,N 

TS = A (I, J) /A (J, J) 

IF (TS .EQ. 0. DO) GO TO 18 
DO 19 L=JP,NP 

19 A (I, L) = A (I , L) - TS*A (J,L) 

18 CONTINUE 
15 CONTINUE 

C EACK SUBSTITUTE 

25 TS = A (N, N) 

IF (DABS (TS) .LT. 1.D-10) WRITE (6,102) 

102 FORMAT (7H0 (LESV) , 5X, 11 HSINGULASITY) 

S (N) = A (N,NP)/TS 

K (N) = S (N) 

IF (N .EQ. 1) RETURN 

no 26 1=2, N 

M = NP - I 
TS = A (M , M) 

IF (DABS (TS) .LT. 1.D-10) WRITF (6,102) 

B = A (M , NP) 

MP = M+1 
DO 27 L=MP,N 
27 B = B - A (M,L) *S (I) 

S(M) = B/TS 

26 K (M) = S (M) 

30 CONTINUE 

RETURN 

100 WRITE (6,101) I 

10 1 FORMAT (7H0 (LESV) , 3X,3HEOW,T4, 39H OF THE COEFFICIENT MATRIX JS 
1 ZEROS) 

DO 50 1=1, N 

50 WRITE (6,103) (A (I , J) , J=1,NP) 

103 FORMAT (1H1,8F16.6/(1X,8E16.6) ) 

NEXT = .TRUE. 

RETURN 

END 

$ T BFTC ERRORR DECK 

FUNCTICN ERROR (Y, R K , E, JC, H) 

C COMPUTE THE FELATIVE ERROR IN AN INTEGRATION STEP OF SIZE H 
C DETERMINE THE CONTROLLING VARIABLE 

DOUBLE PRECISION DNP1,DN,DN“1,C,A3SY 


AT036 
AT037 
AT038 
AT039 
AT040 
AT04 1 
AT042 
AT043 
AT044 
AT045 
AT046 
AT047 
AT048 
AT049 
AT050 
AT051 
AT052 
AT053 
AT054 
AT055 
AT056 
AT057 
AT058 
AT059 
AT060 
AT061 
AT062 
AT063 
AT064 
AT065 
AT066 
AT067 
AT068 
AT069 
AT070 
AT071 
AT072 
AT073 
AT074 
AT075 
AT076 
AT077 
AT078 
ALL AT079 
AT080 
AT081 
AT082 
AT083 
AT084 
AT085 
AT086 
AT087 

AU001 
AU002 
AU003 
AU004 
A U 0 0 5 
A U 0 0 6 
AU007 
A U 0 0 8 
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n o 


DIMENSION Y (28) ,RK (28) ,E (28) AU009 

AU010 

COMMON/COND/DUMl (33) ,LS, LSP3, NEXT AU011 

COMMON/SINT/HMIN , HNM1 ,HN,HNP1 , H M AX , NH , AVH, EM AX , ERR N , JCV , KOUNT, EHRP A'U012 
COMMON/PQRE/PK (28) ,QK (28) , DUM2 (56) AUDI 3 

COMMON/SKI P/NEGL (25) ,11 ,12, IT AU014 

AU015 

C = (H + HN) / (HN + HNM1) AU016 

FAC1 - ABS (H*H/ (2-*H + HN)*(2.*H - HN)/(H + HN + HNM1 ) ) AU017 

A (10 1 8 

ERROR = -1. AU019 

DO 4 1=1 ,LSP3 AU020 

E (I) = 0. AU021 

IF (ABS (PK (I) ) .EQ. 0.) GO TO 4 AU022 

ABSY = ABS (Y (I) ) AU023 

IF (ABSY -EC, 0.) GO TO 4 AU024 

DNP 1 = RK(I)/H AU025 

DN = QK (I) /HN AU026 

DNM 1 = PK ( I) /HNM 1 AU027 

FAC2 = DABS ( (DNP1 - DN) - C* (DN - DNM 1) ) AU028 

C CHECK FOR CATASTROPHIC SUBTRACTION AU029 

IF (FAC 2 -LE, ABS (DNP1) *1.0E-04) GC TO 5 AU030 

E (I) = FAC1* (FAC2/ABSY) AU031 

5 IF (I - LE. 3 . OR- IT -FQ. 0) GO TO 3 AU032 

II * I - 3 A U 0 3 3 

C SKIP NEGLECTED SPECIES AU034 

DO 2 J= 1 , IT AU035 

IF (NEGL(J) -EQ, II) GO TO 4 AU036 

2 CONTINUE AU037 

3 IF (E (I) -LE. ERROR) GO TO 4 AU038 

ERROR = E (I) AU039 

JC = I AU040 

4 CONTINUE AU041 

AU042 

RETURN AU043 

END A U 0 4 4 

$ IEFTC PERRR DECK 

FUNCTION PERR (H) AV001 

AV002 

THIS ROUTINE PREDICTS THE ERROR WHICH CAN BE EXPECTED FROM A AV003 

STEP OF SIZE H AV004 

AV005 

DOUBLE PRECISION SUM AV006 

AV007 

DIMENSION Y (28) ,SK (28) ,E (28) AV008 

AV009 

COMMON/COND/DUH (5) , YN (28) , LS , IS P3 , NEXT AV010 

COMMON/SINT/HMIN, HNM 1, HN , HNP 1 , HM AX, NH , A VH,EM AX, ERR N , JCV , KOU NT , ER BP' AV01 1 
COMMON/DERN/F (28) , ALPHA (28) , BETA (28,28) AV012 

COMMON/PORE/PK (28) ,QK(28) ,DUM1 (56) A VCM 3 

A VO 1 4 

C = H/ (2-*H f HN) ft V0 15 

CO = H/2- A VO 1 6 

Cl = P/HN A 1(0 17 

C2 = H + HN .AVOIR 

PERR = 0. *AV0 19 

ft V020 

DO 2 I=1,LSF3 AV021 

RK(I) = CO* (QK (I) /HN + F (I) ) AV022 
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2 E(T) = C* (Cl* QK (I) + C2*(F(I) + ALPHA. (T) *K) ) AV023 

A V 0 2 4 

CO = C*C2 AV025 

DO 4 1= 1 , LS F 3 AV02f 

SOM = 0. DO AV027 

DO 3 J= 1 , LS F3 AV02R 

IF (J .EO. I) GO TO 3 AV029 

SOM = SOM + BETA {I, J) *RK (J) AV030 

3 CONTINUE AV031 

RK (I) = (E (I) + C0*SIIM)/(1. - CO+BFTA (I, I) ) AV032 

4 CONTINUE A VO 33 

AV034 

DO 6 I=1,LSF3 AV035 

SUM = 0. DO AV036 

DO 5 U=1,LSE3 A VO 37 

5 SUM = SUM + BETA (I, J) *RK (J) AV038 

R K (I) = E ( I ) + C0*SUM AV039 

6 Y (I) = YN (I) + RK (I) AV040 

AV041 

PERR = ERROR (Y,RK,E,JC,H) AV042 

AV043 

RETURN A VO 44 

END AV045 

SIEFTC AUTOO DECK 

SUBROUTINE AUTO AW001 

AW002 

C AUTOMATIC ELIMINATION FROM ERROR CONSIDERATIONS OF SPECIES WITH AW003 

C NON-REPRESENTATIVE ERRORS AW004 

AW005 

REAL MEDIAN AW006 

AW007 

DIMENSION ERROR (2S) , EE (2 ft) AW008 

AW009 

COMMCN/COND/DUM 1 (33) ,LS, LSP3, NEXT AW010 

COMMON/PQRE/DUM2 (84) ,E (2ft) AW011 

COMMON/SKIP/NEGL (25) , I 1 , 12 , IT AW012 

A W 0 1 3 

EQUIVALENCE (EE(1),E(4)) AW014 

A W0 1 5 

12 = 0 A WO 1 6 

K = LS - 1) A W0 1 7 

IF (M .LE. 3) RETURN AW018 

A W0 1 9 

K = 0 A WO 20 

DO 3 1=1, LS AW021 

IF (II -EO. 0) GO TO 2 AW022 

DO 1 J=1,I1 AW023 

IF (I .EO- NEGL(J)) GO TO 3 AW024 

1 CONTINUE AW025 

2 K = K + 1 AW026 

ERROR (K) = EE (I) A W027 

3 CONTINUE AW02R 

AW029 

N = M/2 + 1 AW030 

A WO 3 1 

DO 5 N N= 1 , N A W 0 3 2 

EMX = ERROR (NN) AW033 

I - nN A WO 3 4 

N I = NN + 1 AW035 

DO 4 IT= NI , M AW036 

IF (ERROR (II) .LE. EMX) GO 'T'O 4 AW037 

FMX = ERROR (II) AW03« 

X - ii AW03P 


170 



4 CONTINUE 

ERROR (I) - ERROR (NN) 

ERROR (NN) = EMX 

5 CONTINUE 

MEDIAN = ERROR (N) 

CUTOFF = 1 5. *MEDTAN 

DO 8 1=1, LS 

IF (II - FQ. 0) GO TO 7 
DO 6 J=1,I1 

IF (I . EQ. NEGL (J) ) GO TO 8 

6 CONTINUE 

7 IF (EE (I) -IE. CUTOFF) GO TO 8 
12 =12+1 

K = II + 12 
NEGL (K) = I 

8 CONTINUE 

IT = II + 12 

RETURN 

END 

$ I EFTC CUBSS DECK 

SUBROUTINE CUBS (X,Y,N) 

DIMENSION X (N) ,Y (N) 

DIMENSION A (40) , B (40) ,C (40) 

DIMENSION S (40) ,T (40) ,U (40) 

COMMON/ AFUN/C1,C2,C3 ,C4 ,ITPSZ ,EL M , FT A , DI AM , V ISC , BFT A 

EQUIVALENCE (A (1) „U (1) ) , (8 (1) ,T (1) ) , (C (1) ,S (1) ) 

E (X) = ( ( A 1 * X + A2) * X + A3) *X + A4 
DF (X) = (3. * A 1*X + 2- * A 2) *X + A3 

D2F (X) = 6 . * A 1 *X + 2-*A2 

G (A) = 1-/ (1 - “ A**ETA) 

DG (B) = ETA/FLM*TERK** (ETA-1.) * B* 3 

D2G(C,D,E) = C* (ETA - 1. + 2.*ETA*TEPM**ETA*D)/E 


AW040 

AW041 

AW042 

AW043 

AMO 44 

AW045 

A W 0 4 6 

AM047 

A W0 48 

AW049 

AW050 

A W05 1 

AW052 

AW053 

AW054 

A WO 55 

AW056 

AW057 

AW058 

A W 0 5 9 

AW060 

A W06 1 

AXOO 1 

AX002. 

AX003 

AX004 

AX005 

AXO 06 

AX007 

AX008 

AX009 

AX010 

AX01 1 

AXO 12 

AX0 13 

AXO 1 4 

AXO 15 

AX0 18 

AX017 

AX018 


C 

C 


FROM INPUT TABLE COMPUTE COEFFICIENTS FOR 
AND DIFFERENTIATION 
CONI = .33333333 
CO N 2 = . 16666667 
DXI = X (2) - X(1) 

DYI = Y (2) - Y (1) 

DI = DYI/DXI 
S (1) = CON 1 + DXI 
T ( 1 ) = CON 2*DXI 

U ( 1) = DI - (((Y(3)~Y(1))/(X(3)-X(1))) + 

N M = N- 1 

DO 2 1= 2 , N M 

DXIM = DXI 

DYIM = DYI 

DTM = DI 

DXI = X (1 + 1) - X (I) 

DYI = Y (1+1) “ Y (I) 

DI = DYI/DXI 
S (I) = CONI* (DXIM + DXI) 

T (I) = C0N2*DXI 


CUBIC 


DI) /2. 


AX020 
AX021 
AX022 
AX023 
AX024 
AX025 
AX026 
AX027 
AX028 
AX029 
AXO 30 
A X 0 3 1 
AXO 32 
AXO 33 
AX034 
AXO 3 5 
AX036 
AXO 37 
AX03P 


SPLINE INTERPOLATIONAX019 
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2 0(1) = DI - DIM AX 034 

S (N) = CONI *DXI AX040 

U(N) = (D.I + (DYI+DYIM) / (DXI + DXTM) ) /2. - DI A X 0 4 1 

A Y04? 

DO 3 1=1, NM A XO 4 3 

TT = 7(1) A X044 

T (I) = T{I)/S(I) AX045 

II (T) = 0 (I) /S (I) A X046 

S(I+1) = S(I+1) - TT*T(I) AX047 

3 U(I+1) = U(T + 1) - TT*n(T) AX048 

U (N) = 0 (N) /S (N) AX049 

AX050 

A(N) = 0(B) AX0S1 

DO 4 J= 1 r NH AX052 

I = N-J AX053 

4 A (I) = 0(1) - T (I) *A (1+1) AX0S4 

AX055 

DO 5 1=1, NM AX056 

DXI = X (1+ 1 ) - X (I) AX057 

DYI = Y (1+ 1 ) - Y (I) AX058 

B(T) = DYI/DXT - C0N2* (A (1+1) - A (I) ) * D X I AX0S9 

5 C ( T) = Y (I + 1 ) - C0N2 * A (1 + 1) *PXT*nxi - R(T)*X(T+1) AX060 

PETUEN AX061 

AX062 

ENTPY CINP (XI, YI,DY,D2Y) AX063 

GOTO (66, 10,11, 11, 13) ,ITPSZ AX064 

AX065 

C COMPUTE Y, DY/DX, D2Y/DX2 FBOM CUBIC SPLINF COEFFICIENTS AX066 

66 DO 6 1=1, NM AX067 

IF (X (I) .LE. XI .AND. XI .LE. X(T + 1)) GO TO 7 AX068 

6 CONTINUE A X069 

WRITE (6,100) XI , X ( 1 ) ,X(N) AX070 

100 FORMAT (7H0 (CINP) , 5X, 3HXI= , FI 3. 5, 1 7H IS OUT OF P ANGE/ 1 0 X, 5 BX ( 1) = , AX071 
1 F13.5,5X,SHX(N)=,F13.5) AX072 

AX07 3 

7 DXI = X (1+ 1 ) - X (I) AX074 

A 1 = (A (1 + 1 ) - A (I) ) /DXI/6. AX075 

AIX = A ( I) * X (1+ 1 ) AX076 

A XI = A (1 + 1) * X (I) AX077 

A 2 = (AIX - AXD/DXI/2. AX078 

AIX = ATX*X (1 + 1) A X079 

AXI = AXT*X (T) AX080 

A3 = (AXI - AIX)/DXI/2. + B(I) AX081 

AIX = AIX*X (1+1) AX0R2 

AXI = AX I*X (I) AX083 

A 4 = (AIX - AXI) /DXI/6. + C (I) AX084 

AX085 

YI = E (XT) AXO 86 

DY = DF (XI) AX087 

D2Y = D2F (XI) AX0R8 

RETURN A X 089 

AX090 

C COMPUTE Y, DY/DX, D2Y/DX2 F"CM INPUT PCIYNOMIAI AX091 

10 A 1 = Cl AX092 

A 2 = C2 AX093 

A3 = C 3 AX094 

A 4 = C4 AX095 

AX096 

YI = F (XI) AX0 q 7 

DY = DF(XI) AX098 

D2Y = D2F (XI) AX0R9 

RETURN A X 1 00 

A X 1 0 1 
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non n n 


c COMPUTE Y, DY/CX, D2Y/DX2 FROM INPUT SPECIAL FUNCTION 
C EXCEPTIONAL CASE AT X=0 

11 IF (XI .FQ. 0-1 GO TO 12 
TERM = XI/ELM 

YI = G(TERM) 

DY = DG C YI> 

D2Y = D2G (DY , YI, XI) 

RETURN 

12 YT = 1. 

C FIT A CUBIC THROUGH THE POINTS (0 . , Y 1 ) , (. 0 5 , Y2* ) , (- 05 , Y2 • * ) , AND 
C („10,Y3*M IN ORDER TO FIND YI* AND YI" 

TERM = .05/ELM 
Y2 - G (TERM) 

Y2P = DG (Y2) 

Y2PP = D2G (Y2P,Y2,. 05) 

TERM = .10/ELM 
YI - G (TERM) 

Y3P = DG(Y3) 

Y 3PP = D2G(Y3P,Y3 f . 10) 

DY = (.05* (Y3PP-Y2PP)/ (. 10-. 05) /2. - Y2?P)*-05 + Y2P 
D2Y = Y2PP - .05* (Y3PP-Y2PP)/ (. 10-.05) 

RETURN 

C V=0 CASE - ASSIGNED AREA IS NOT REQUIRED 
13 YI = 1. 

DY = 0. 

D2Y = 0. 

RETURN 

END 

IIBFTC SERCH DECK 

SUBROUTINE SEARCH { F, FOFX , A, X , B) 

THIS ROUTINE USES AN OPTIMAL SEQUENTIAL SEARCH TECHNIQUE TO FIND 
IN (A,B) SUCH THAT F (X) * FOFX 

ASSUMPTIONS 

(1) F (X) CONTINUOUS ON THE CLOSED INTERVAL (A,U) 

(2) FOFX IS NOT EQUAL TC ZERO 

COMMON/SINT/DUM (10) , KOUNT, FX 

XI = (2 - * A + B)/3. 

KOUNT = 1 
FI = F (X 1 ) 

IF (ABS (1.-F1/FOFX) .GT. 0.0001) GO TO 2 
X = XI 
FX = FI 
RETURN 

2X2= (A + 2. *B) /3. 

KOUNT = KOUNT + 1 

F2 = F ( X 2 ) _ , 

IF (ABS (1.-F2/FOFX) .GT. O.0001) GO TO 3 

X = X2 
FX = F2 
RETURN 


A X 1 0 2 
AX103 
Axioa 
AX105 
AX IQ 6 
AX107 
A X 1 08 
A X 1 09 
AX1 10 
AX 1 1 1 
AX1 12 
AX113 
AX 1 1 4 
AX1 15 
AX1 16 
AX117 
AX118 
AX 1 1 9 
AX120 
axi: i 

AX 1 22 
AX 1 23 
AX 1 24 
AX125 
AX 1 26 
AX 1 27 
A X 1 28 
A X 1 29 
AX 1 30 
A X 1 3 1 
AX 1 32 
A X 1 3 3 
AX134 

AY001 
AY002 
X AY003 
AYOOU 

AY005 

AY006 

AY007 

AY008 

AY009 

AY010 

A YO 1 1 

AY012 

AYO 13 

AY014 

AY015 

AY016 

AYO 1 7 

AY01P 

AY019 

AYO 20 

AYO 21 

A Y022 

AY023 

AYO 24 

A Y 0 2 5 

A Y 0 2 6 

A Y 0 2 7 



3 D1 = FI - FOFX A YO 28 

IF f D 1* (FOFX-F2) .GT. 0.) GO TO 5 AY029 

IF (D 1 .LT. 0.) GO TO 4 AY030 

x2 = * A Y 0 3 1 

KOONT = FOUNT + 1 AY032 

F2 = F(X2) A YO 3 3 

IF (F2 .LT. FOFX .AND. ABS (1.-F2/FCFX) .GT. 0.0001) GO TO 5 AY034 

x = * A Y 0 3 5 

FX = F2 A YO 36 

RETURN AY037 

AY038 

4 XI = B A YO 39 

FOUNT = FOUNT + 1 AY040 

FI = F (XI) AY041 

IF (FI .GT. FOFX .AND. ABS ( 1 . -F 1 /FOFX) -GT. 0.000 1) GO TO 5 AY042 

x * B A YO 4 3 

FX = FI AY044 

RETURN AY045 

AY046 

5 X = (XI + 72 )/ 2. AY047 

FOUNT = FOUNT + 1 AY04R 

FX - F(X) AY 049 

IF (ABS (1.-FX/FOFX) .LE. 0.0001) RETURN AYOSO 

TF (FOUNT .FQ. 11) RETURN AY0S1 

IF ( (FX-FOFX) * (FOFX-F2) .LT. 0.) GO TO 6 AY052 

XI = X A YO 5 3 

GO TO 5 A Y054 

6 X2 = X AY055 

F2 = FX AY056 

GO TO 5 A Y057 

AYOSR 

END AY058 

SIEFTC MATCO DECK 

SUBROUTINE MATRIX AZ001 

A 7,002 

DOUBLE PRECISION G,X AZ003 

DOUBLE PRECISION EN,ENLN,DELN AZ004 

AZ005 

LOGICAL TP, HP , CONVG,TV, UV AZ006 

AZ007 

COHHON/SPECES/EN (28) , E N L N (2 5) , DFLN (25) , A (15, 25) AZ008 

CON MO N/ MISC/TT ,PP,CPR0, HSUBO , ENN , SUNN , ENNL, LLMT (15) , BO (15) AZ009 

COMMON/INDX/TP,HP,NLM,NS,I01,CONVG,KMAT,TMAT AZ010 

COMMON/GHSC/GRT (25) , HRT (25) ,SR (25) ,CPR (25) , DCPR (25) AZ01 1 

COMMON/MATX/G (28,28) ,X(2R) AZ012 

COKMON/NECC/DUM 1 (4) ,CPSUM,DUM2 AZ013 

AZ014 

EQUIVALENCE (NLM , L) , (T P , T V) , (HP , U V ) AZ015 

AZ016 

102 = IQ 1 + 1 A Z 0 1 7 

103 = IQ2 + 1 A Z0 1 8 

KMAT = 103 AZ019 

IF (. NOT.CONVG. AND. TP) KMAT = 102 AZ020 

IMAT = KMAT - 1 AZ021 

AZ022 

C CLEAR MATRIX STORAGES TC ZERO AZ023 

AZ024 

DO 211 1=1,1 MAT AZ025 

90 211 K=1 , KMAT AZ026 

G (I , K) = 0.0D0 A ZO 27 

211 CONTINUE AZ028 

SSS = 0. A Z 0 2 9 

HSUM = 0. A Z 0 3 0 

AZ031 
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C BEGIN SET OF OF ITERATION MATRIX 

KK - I 

TM = ALOG (PF/ENN) 

DO 65 J=1,NS 
H = HRT (J) *EN (J) 

F = (HRT (J) - SR (J) ♦ ENLN (J) + TM)*EN(J) 

SS = H-F 
TER Ml = H 

IF (KM AT .EC, IQ2) TERM 1 = F 
DO 55 I = 1, L 

C CALCULATE THE ELEMENTS R (I,K) 

IF (A(I,J) .EQ. 0.) GO TO 55 
TERM - A (I,J) *EN (J) 

DO 15 K=I, L 

G (I , K) = G(I,K) + A(K,J)*TERM 
15 CONTINUE 

G (I,IQ1)=G(I,IQ1) +TERM 
G (I,IQ2)=G (I , IQ2) + A ( X, J) *TERM 1 
IF (CON VG .OR. TP) GO TO 55 
G(I,TC3) = G (I,IQ3) +A (I, J) *F 
55 CONTINUE 

IF (KMAT .EQ. IQ2) GO TO 64 

IF (CONVG.OR. HP) GO TO 59 

G(IQ2,IQ1) = G(IC2,IQ1) + SS 

G(I02 # IQ2) - G(IG2 r TQ2) + HRT(J)*SS 

G (IQ2 , IQ3) = G (IQ2 , IQ3) + (SR (J) - ENLN (J) - TM) *F 

GO TO 62 

59 G(IQ2,IQ2) = G(IQ2,IQ2) + HFT(J)*H 
IF (CON VG) GO TO 64 
G(IQ2 f IQ3) = G(IQ2,IQ3) * HFT(J)*F 
62 G(IQ1,IQ3)=G (IQ 1, IQ 3) +F 

64 G (IQl,IQ2)=G (IQ1,IQ2) +TERM1 

65 CONTINUE 

SSS = SSS + G(IQ2,IQ1) 

HSUM = HSUM + G(IQl,IQ2) 

G (101,101) ■= SUHN - ENN 

C REFLECT SYMMETRIC PORTIONS OF THE MATRIX 

ISYM - 101 

IF (HP.OR.CONVG) ISYM=TQ2 
DO 102 1*1, ISYM 
DO 102 J=I , ISYM 
G (J,I)=G (I,J) 

102 CONTINUE 

C COMPLETE THE RIGHT HAND SIDE 

IF (CONVG) GO TO 175 
DO 145 1=1, L 

145 G (I , KMAT) = G ( I , KM AT) * BO (I) - G<I,I01) 

G (IQ 1 , KMAT) = G (101 , KMAT) +ENN-SUMN 

C COMPLETE ENERGY ROW AND TEMPERATURE COLUMN 

IF (KMAT .EC. IQ2) RETUPN 
IF (HF) ENERGY = HSUBO/TT - HSUM 
G(IQ2,r03) =G (IQ2,IQ3) + ENERGY 
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175 G(IQ2,IQ2)= G (TQ2, 102) + CPSUM AZ094 

AZ095 

RETURN AZ096 

END AZ097 

$IEFTC GAUSCO DECK # 

SUBROUTINE GAUSS BA001 

BA002 

C SOLVE ANY LINEAR SET OF UP TO 20 EQUATIONS BA003 

BA004 

DOUBLE PRECISION G , X ,COEFX ( 20) , SUM , Z BA005 

BA006 

COMMON/MATX/G (28,28) ,X (28) BA007 

COMMON/INDX/TP,HP,NLM, NS ,TQ1 , CO N VG , KM AT, IKAT BA008 

BA009 

EQUIVALENCE (IUSE, IM AT) BA010 

B A0 1 1 

DATA BIGNO/ 1 « E + 38/ BA012 

BA013 

C BEGIN ELIMINATION OF NNTH VARIABLE BA014 

BA015 

IUSE1=IUSE+ 1 BA016 

6 DO 45 NN- 1 , IUSE BA017 

IF (NN-IUSE) 8,83,8 BA018 

83 IF (G (NN,NN) ) 31,23,31 BA019 

BA020 

C SEARCH FOR MAXIMUM COEFFICIENT IN EACH ROW BA021 

BA022 

8 DO 18 I=NN, IUSE BA023 

COEFX(I) = BIGNO BA024 

IF (G (I,NN) -EQ.0-) GO TO 18 BA025 

COEFX(I) = 0. BA026 

DO 10 J=NN , IUSE1 BA027 

SUM = G (I , J) BA028 

IF (SUM.LT.O.) SUM=-SUM BA029 

IF { J. NE. NN) GO TO 9 BA030 

Z = SUM BA031 

GO TO 10 BA032 

9 IF (SUM. GT. COEFX (I)) COEFX(I)=SUM BA033 

10 CONTINUE BA034 

COEFX(I) = COEFX (I) /Z BA035 

18 CONTINUE BA036 

TEMP = BIGNO BA037 

1=0 BA038 

20 DO 22 J=NN, IUSE BA039 

IF (COEFX (J) -TEMP) 87,22,22 BA040 

87 TEMP=COEFX (J) BA041 

I=J BA042 

22 CONTINUE BA043 

IF (I) 28,23,28 BA044 

BA045 

INDEX I LOCATES EQUATION TO BE USED FOP ELIMINATING THE NTH BA046 

VARIABLE FROM THE REMAINING EQUATIONS BA047 

BA048 

C INTERCHANGE EQUATIONS I AND NN BA049 


BA050 

BA051 

BA052 

BA053 

BA054 

BA055 


28 IF ( NN— I) 29,31,29 

29 DC 30 J=NN, IUSEl 
Z=G (I, J) 

G (I,J)=G (NN,J) 

G (NN, J) =Z 
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30 CONTINUE BA056 

BA057 

DIVIDE NTH ROW BY NTH DIAGONAL ELEMENT AND ELIMINATE THE NTH BA058 

VARIABLE FROM THE REMAINING EQUATIONS BA059 

BA060 

31 K = NN + 1 BA061 

DO 36 J = K , IUSE1 BA062 

IF (G (NN,NN) -EQ.0.) GO TO 23 BA063 

G{NN,J) = G (NN, J) /G (NN, NN) BA064 

36 CONTINUE BA065 

IF (K-IUSE1) 88 # 45, 88 BA066 

88 DO 44 I = K , IUSE BA067 

40 DO 44 J = K, IUSE1 BA068 

G (I, J) = G (I , J) — G (I ,NN) *G (NN,J) BA069 

44 CONTINUE BA070 

45 CONTINUE BA071 

BA072 

C E ACKSCLVE FOR THE VARIABLES BA073 

BA074 

K = IUSE BA075 

47 J = K + 1 BA076 

X (K) = 0.0D0 BA077 

SUM = 0.0 BA078 

IF (IUSE - J) 51,48,48 BA079 

48 DO 50 I = J, IUSE BA080 

SUM = SUM + G (K,I) *X (I) BA081 

50 CONTINUE EA082 

51 X (K) = G (K,IUSE 1) - SUM BA083 

K = K - 1 BA084 

IF (K) 47,151,47 BA085 

23 IUSE = IUSE-* 1 BA086 

151 RETURN BA087 

END BA088 
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Figure 1. - Main program (GCKP). 
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Figure 3. - Subroutine PRED. 
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/ derivative 
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Calculate fj, f 2 , - derivatives of velocity, 

density, temperature with respect to the 
integration variable, using assigned area 
equations 



Calculate second 
derivative of area wrt 
the integration variable 



figure 4. - Subroutine DERV. 



















Calculate a j+ 3, the 
partial derivative of 
fj + 3> with respect to 
integration variable 


Calculate Oj, c^. °3 * partial derivatives 
of fj, f2, fj, with respect to the integration 
variable - using assigned area equations 




Figure 4 . - Concluded. 
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Figure 5. - Subroutine PARD. 
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